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Avant-propos 


Ce livre vous propose des jeux de très bonne qualité exploitant pleinement 
les capacités graphiques et sonores de l'ATMOS. 


Son rôle ne se limite toutefois pas à celui d'un simple recueil de 
programmes. Îl vous offre en outre la possibilité d'adapter chacun d'entre 
eux suivant vos goûts et vos désirs, et cela sans même que vous n'ayez 
besoin de connaître le Basic. En effet, chaque jeu est accompagné de 
nombreuses suggestions de ‘personnalisation ” qui vous sont expliquées 
dans le moindre détail. 


Si vous avez quelques rudiments de Basic, ce livre peut constituer une 
bonne occasion de vous perfectionner en vous amusant. C'est en pensant à 
vous que nous avons préféré présenter les programmes par ordre de diffi- 
culté croissante, renonçant ainsi à l'habituel classement par “genre”. 
Chacun d'entre eux est analysé, instruction par instruction et les 
“techniques” employées sont clairement expliquées. Vous serez ainsi 
parfaitement armés pour acquérir progressivement les connaissances et les 
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méthodes qui vous seront indispensables si vous souhaitez développer 
vous-mêmes vos propres jeux ou modifier profondément ceux qui vous 
sont proposés. 


Les programmes ont été soigneusement vérifiés et leurs listes réalisées 
directement à partir de l'ATMOS. Vous pouvez donc les recopier en toute 
confiance. 


“Faites vos jeux avec ATMOS” est la version ATMOS de 
l'ouvrage ‘Faites vos jeux avec ORIC”’, dans la même collection. 
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Introduction 


Afin que vous puissiez tirer le meilleur parti de ce livre, en fonction de vos 
désirs, nous croyons bon de vous préciser comment il est constitué. 


Un premier chapitre vous donne des conseils pour la frappe des 
programmes proposés. Si vous ne connaissez pas le Basic, sa lecture vous 
sera très profitable. Elle vous aidera à détecter les erreurs de frappe que 
vous aurez pu commettre lors de la recopie d'un des jeux. 


Les chapitres 2 à 21 correspondent chacun à un jeu. Ils sont tous structu- 
rés de la même manière en cinq paragraphes: 


© paragraphe 1 : le jeu. Vous ÿ trouverez le scénario du jeu, ses règles et 
tout ce qu'il faut savoir pour y jouer avec votre ATMOS. 


© paragraphe 2: le programme. (|| s'agit de sa liste). 


@ paragraphe 3: si vous souhaitez personnaliser ce programme. De 
nombreuses possibilités d'adaptation vous sont proposées. Elles ne 
requièrent absolument aucune connaissance du Basic. Dans le cas où 
cela présente de l'intérêt, nous vous expliquons comment utiliser une 
poignée de jeu. 


XV 


e paragraphe 4: description du programme. Vous y verrez tout d'abord la 
liste des “techniques” utilisées dans le programme. Chacune d'entre 
elles fait l'objet d'une description détaillée en annexe. (Cette façon de 
procéder nous a évité de répéter des explications analogues d'un 
programme à un autre). Vient ensuite une analyse très complète du 
programme et des différents sous-programmes (dont nous avons fait un 
très large usage afin de mieux mettre en évidence le fonctionnement du 
jeu). Ces derniers sont décrits dans l’ordre où ils sont appelés dans le 
programme principal (et non pas nécessairement dans l'ordre des numé- 
ros de ligne). Notez que les structures de boucle sont mises en évidence 
par une typographie appropriée. 


e paragraphe 5: liste des variables. On y précise le rôle de chaque variable, 
à l'exception de quelques unes, rangées dans la rubrique "variables auxi- 
liaires''; ce sont là des variables n'ayant qu'un rôle secondaire et qui 
n'apparaissent que très localement : compteur de boucle FOR ayant peu 
d'instructions, variable chaîne destinée à lire une réponse O/N, etc. 


Viennent enfin les différentes annexes dont nous avons parlé plus haut. 
Elles fournissent des indications sur les techniques spécifiques de program- 
mation qui sont employées dans la réalisation des jeux et notamment sur la 
manière de les mettre en œuvre sur ATMOS. Notez que vous ÿ trouverez 
certaines informations, qui ne figurent pas dans le manuel d'accompagne- 
ment de votre micro-ordinateur. 


Bien entendu les paragraphes 4 et 5 ainsi que les annexes sont plus parti- 
culièrement destinés à ceux d’entre vous qui, ayant déjà des rudiments de 
Basic, souhaitent aller plus loin. Ce livre devrait vous permettre d'y parvenir 
en vous amusant. 
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Conseils pour la frappe 
des programmes 


Ce petit chapitre vous donne quelques conseils qui devraient grandement 
faciliter cette opération souvent laborieuse qu'est la frappe des 
programmes. 


1. Ne jamais exécuter immédiatement un programme que 
vous venez de taper 


Bien entendu, il est nécessaire de le vérifier à l'écran (ou mieux sur impri- 
mante si vous avez la chance d'en avoir une). Mais surtout, il est indispen- 
sable que vous en fassiez une sauvegarde sur cassette (par CSAVE) 
AVANT de tenter de l'exécuter. 


En effet, il arrive (parfois) que l'exécution d'un programme erroné conduise 
à un ‘plantage’ de l'ATMOS tel que même le bouton RESET ne permette 
pas de se sortir de la situation. Dans ce cas, vous ne pouvez que débrancher 
puis rebrancher votre ORIC, cè qui a pour conséquence immédiate de vous 
faire perdre le programme que vous aviez patiemment introduit en mémoire. 


Si, par contre, vous avez préalablement copié ce programme sur cassette, il 
vous suffit alors de le recharger par CLOAD puis d'en rechercher les 
anomalies. 


Remarquez que cette technique peut également s'utiliser pour effectuer 
des sauvegardes partielles de programme. Cela peut se révéler utile 
lorsque : 


— vous n'avez pas le temps de taper tout votre programme en une fois, 


— vous craignez d'être interrompu par une ‘fausse manip” où une 
coupure du secteur... 


2. Recherche des anomalies 


Il est probable que votre programme ne fonctionnera pas convenablement 
au premier coup. Trois types d'incidents peuvent apparaître. Nous allons 
voir comment remédier à chacun d'entre eux. 


a) L'ATMOS se plante 


C'est la situation si désagréable dont nous avons parlé. Essayez d'appuyer 
sur le bouton RESET. Si cela ne fonctionne toujours pas, rechargez votre 
programme. 


Il vous faut maintenant rechercher l'anomalie. Cela est, somme toutes, 
assez facile car, vu l'importance des dégâts, et compte-tenu de ce qu'il 
s'agit d'un programme BASIC, la cause ne peut être qu'une mauvaise utili- 
sation de l'instruction POKE. 


Comme celle-ci est peu utilisée dans nos programmes, vous n'aurez qu'un 
nombre limité de vérifications à faire. Examinez donc chacune de ces 
instructions en comparant avec la liste d'origine et en effectuant les correc- 
tions nécessaires. 


Si vous ne trouvez aucune erreur dans les instructions POKE, il faut alors 
examiner les variables qui peuvent y intervenir. Par exemple dans: 


POKE AM,XX 


interviennent AM et XX. Vous allez alors examiner les instructions où ces 
variables (AM et XX) se voient attribuer une valeur, c'est-à-dire les instruc- 
tions de la forme: 


AM = … 
XX = … 


ou : 


Il est probable que l’une d’entre elles soit erronée. Sa correction devrait 
résoudre le problème. 


b) L’'exécution commence puis vous obtenez un message du type : 
SYNTAX ERROR IN xxxx 


où xxxx désigne un numéro de ligne. 


C'est là l'erreur que vous rencontrerez fréquemment. Elle ne pose pas de 
problème particulier puisqu'il vous suffit de vérifier et de corriger la ligne 
mentionnée. 


c) L’exécution commence puis vous obtenez un message du type : 
ILLEGAL QUANTITY ERROR IN xxxx 

Cela signifie que, dans la ligne spécifiée, vous utilisez une fonction (PLOT, 

DRAW, …) avec de mauvaises valeurs pour les arguments. 


Commencez par vérifier la ligne concernée. Si cela ne donne rien, c'est ce 
que ce sont des variables apparaissant dans l'instruction qui ont pris de 
mauvaises valeurs. 


Si vous connaissez un peu Basic et la fonction concernée, vous pouvez 
faire écrire, en mode direct, le contenu des variables. Par exemple, si 
l'instruction est: 


PLOT X,Y,C 


vous pouvez, après le message d'erreur, taper simplement (sans numéro de 
ligne) : 


PRINT X,Y,C 


Vous devriez ainsi découvrir la variable coupable. 


Il vous faut ensuite vérifier toutes les instructions dans lesquelles la 
variable (ou les variables si vous ne savez pas laquelle est en cause) reçoit 
une valeur. Ici, par exemple vous vérifierez toutes les instructions où appa- 
raît quelque chose de la forme: 


=: 
ou Ÿ = … 
ou C = … 


D'autres erreurs sont malheureusement possibles. Celles que nous avons 
évoquées sont les plus courantes. Si vous prenez bien soin de relire ce que 
vous avez tapé et de le comparer avec la liste d'origine, il est probable que 
vous ne rencontrerez guère d'autres erreurs. 
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Force de frappe 


1. Le jeu 


Il s'agit d'un jeu d'habileté et de rapidité. Son but consiste à taper le plus 
vite possible sur la touche correspondant à une lettre qui apparaît dans un 
endroit quelconque de l'écran. La pratique de ce jeu peut vous aider à 
mieux connaître le clavier de votre ATMOS et donc à augmenter votre 
vitesse de frappe. 


À chaque partie, trente lettres vous sont ainsi proposées. Chacune d’entre 
elles est tirée au hasard parmi les vingt-six lettres de l'alphabet. Si vous 
tapez sur une mauvaise touche, un bruit de sonnette retentit. Par contre, si 
vous tapez sur la bonne touche, vous entendrez un “coup de fusil”; le 
programme vous proposera alors une nouvelle lettre, après un petit temps 
d'attente qui sera variable d'une fois à l’autre. Ce détail accroît quelque peu 
la difficulté du jeu car il vous empêche d'acquérir un rythme régulier, et il 
vous demande d'être sans cesse ‘à l'affût” d'une nouvelle lettre. 


Le programme affiche en permanence le temps écoulé. Notez bien que seul 
n'est pris en compte que votre temps de réaction. Le temps d'attente 
(variable) avant affichage d'une lettre n'est pas considéré. Vous voyez 
également apparaître le nombre d'erreurs que vous avez commises. 


A la fin d'une partie, le programme vous indique quel a été votre temps 
moyen de réaction. || vous fournit un score qui est fonction de ce temps 
moyen et du nombre d'erreurs. En même temps, il vous présente le meil- 
leur score réalisé depuis le début du jeu. 


Enfin, le programme vous demande si vous désirez rejouer. Si vous répon- 
dez O (pour oui), une nouvelle partie vous est alors proposée. 


2. Le programme 


Quelques conseils pour la frappe 


Dans un premier temps, vous pouvez alléger la frappe en simplifiant les 
instructions REM, par exemple en vous limitant au mot REM. Cela 
concerne les lignes 100, 4000, 5000, 6000, 8000 et 9000. Ne supprimez 
pas complètement ces lignes car le programme ne fonctionnerait plus. 


Attention à la ligne 8040. Le nombre d'espaces situés entre les guillemets 
(”) doit être exact. Pour éviter de vous tromper, repérez-vous sur la ligne 
8020. 


Attention, en ligne 160, ne pas laisser d'espace entre les deux guillemets: 


100 REM #wwmwmuw##x FORCE DE FRAPPE 4646 46 4646 4646 4 44 AE A A6 AE AE 4e 
110 GOSUB 9000 

120 REPEAT 

130 : GOSUB 8000 


140 FOR I=i TO NL 

150 : GOSUB 5000 

160 : R#$=KEY$#: IF R$="" THEN GOSUB 6000: GOTO 160 
170 5 R=ASC(R$#)1 IF RÇ>C THEN PING: Em=E+i: GOTO 160 
180 s GOSUB 4000 

190 s NEXT I 


200 

220 

230 

240 

250 

260 

265 

270 

280 

290 

300 

4000 
4010 
4020 
4030 
3000 
5010 
5020 
5040 
5050 
5060 
5070 
8000 
6010 
6020 
6030 
6040 
6050 
6060 
8000 
8010 
8020 
8030 
8040 
8050 
9000 
9010 
9020 
9030 
9040 
9050 


1 MaT/NL 
4 PRINT:PRINT:PRINT "TEMPS MOYEN DE FRAPPE :"3M 
3 PRINT "AVEC ";E;" ERREURS" 
1 SC=INT(20000/M-50%E) 
4 PRINT: PRINT "VOTRE SCORE :"36C 
4 PRINT: PRINT "MEILLEUR SCORE :"3MS 

1 IF SC>MS THEN M6=26C 
4 PRINT: PRINT: PRINT "voulez vous rejouer (O/N)7?" 

1 GET R$ 
UNTIL R$<>"O" 
END 

REM ------ SP LETTRE CORRECTE ------------- 
SHOOT 

PLOT X,Y,32 

RETURN 

REM ------ SP AFFICHAGE D'UNE LETTRE ----------- 
X=X1+INT(RND(1)#(X2-X1+1)) 
Y=Y1+INT(RND(1)#(Y2-YV1+1)) 

Cab5+INT(RND(1)#26) 

WAIT RND(1)#TM 

PLOT X,Y,C 

RETURN 

REM ------ SP MISE A JOUR, AFFICHAGE TEMPS ET ERREURS ---- 
TaT+i 

PLOT 1,0,1: PLOT 2,0,"TEMPS" 

PLOT 8,0,S8TR#(T): PLOT 8,0," " 

PLOT 20,0,5: PLOT 21,0," ERREURS" 

PLOT 29,0,STR$#(E): PLOT 29,0," " 

RETURN 

REM ------ SP INITIALISATION D'UNE PARTIE --------- 
T=0r E=01 CLS 

PLOT 3,0,"tapez sur une touche pour commencer" 

GET R$ 

PLOT 3,0," " 
RETURN 

REM ------ SP INITIALISATIONS DU JEU --------------- 
POKE #26A,10 

PAzb: IN=4: PAPER PA: INK IN 

Xi=21 X2=38: Yi=2: Y2=26 

NL=30: TM=75: MS=0 

RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier le nombre de lettres proposées au cours d'une 
partie 


Remplacez en 9040, le nombre 30 par une valeur de votre choix. 


2. Pour modifier le temps s'écoulant avant l'apparition d'une 
nouvelle lettre 


Remplacez, en 9040, le nombre 75 par une valeur de votre choix. Si vous 
souhaitez qu'il n'y ait aucun temps d'attente, vous pouvez: 


— soit donner la valeur O à TM (en 9040), 
— soit supprimer l'instruction 5050. 


3. Pour que la lettre s'affiche toujours au même endroit de l'écran 


Remplacez les instructions 5010 et 5020 par des instructions attribuant 
une valeur déterminée à X et Y. Par exemple: 


5010 X = 20 
5020 Y = 13 


vous fourniront une lettre située au centre de l'écran. 


4. Pour modifier la couleur de l'écran 


Remplacez la valeur 6 de l'instruction 9020 par un nombre de votre choix 
(entre O et 7). 


5. Pour modifier la couleur des lettres 


Remplacez la valeur 4 (en 9020) par un nombre de votre choix (entre O et 
7). 


REMARQUE: Évitez de choisir la même valeur pour l'écran et pour les lettres 
car alors ces dernières seraient “invisibles”. 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— HASARD 
— Configuration clavier/écran 


b) Le programme principal 


110 appelle le sous-programme d'initialisation du jeu (en 9000). 


120 et 290 permettent de répéter les instructions 130 à 280 correspon- 
dant au déroulement d'une partie, et ceci jusqu'à ce que l'utilisateur 
précise qu'il ne désire plus continuer à jouer: 


140 à 190 proposent les trente lettres. Pour chaque lettre: 


150 appelle le sous-programme 5000 qui affiche une lettre sur 
l'écran. 

160 boucle sur elle-même jusqu'à ce qu'une touche soit pressée. 
Tant que cela n'a pas lieu, le sous-programme 6000 est appelé 
pour ‘’incrémenter” le compteur de temps et pour en afficher sa 
valeur. 

170-180 analysent la réponse. Si celle-ci est incorrecte, un bruit de 
sonnette retentit; le compteur d'erreurs est incrémenté de un et 
l'on revient en 160 pour attendre une autre proposition. Si la 
réponse est correcte, le sous-programme 4000 fait retentir un coup 
de fusil et efface la lettre de l'écran. 


200-230 calculent le temps moyen et l'impriment en même temps 
que le nombre d'erreurs. 


240-265 calculent le score obtenu et l'impriment en même temps 
que le meilleur score réalisé jusqu'ici. Le cas échéant, le meilleur 
score est actualisé. 


270-280 demandent à l'utilisateur s'il désire rejouer et lisent sa 
réponse. 


c) Le sous-programme d'initialisation du jeu (9000-9050) 


9010 supprime le bip du clavier et le curseur de l'écran. 


9020 fixe les couleurs de fond et d'encre. 


9030 fixe les limites du domaine où peuvent apparaître les lettres 
proposées. 


9040 fixe le nombre total de lettres proposées, le temps d'attente maxi- 
mum et initialise le meilleur score. 


d) Le sous-programme d'initialisation d'une partie (8000-8050) 


8010 initialise les différents compteurs (temps, erreurs) et efface l'écran. 


8020-8040 attendent que vous frappiez une touche pour préciser que vous 
êtes prêt à commencer la partie. 


e) Le sous-programme d'affichage d'une lettre (5000-5070) 
5010-5020 déterminent au hasard les coordonnées d'affichage d'une 
lettre. 


5040 choisit au hasard le code ASCII de l'une des vingt-six lettres de 
l'alphabet. 


5050-5060 affichent la lettre choisie à l'emplacement déterminé, après un 
temps tiré lui aussi au hasard. 


f) Le sous-programme lettre correcte (4000-4030) 


4010 émet un bruit de ‘coup de fusil”. 
4020 efface la lettre proposée. 


g) Le sous-programme d'affichage du temps et des erreurs 
(6000-6060) 

6010 incrémente le compteur de temps. 

6020-6030 affichent le temps. 

6040-6050 affichent le nombre d'erreurs. 


5. Liste des variables 


PA 
IN 


X1,X2,Y1,Y2 


NL 
TM 


couleur de fond 


couleur d'encre (dans laquelle apparaissent les différentes 
lettres 


coordonnées du domaine dans lequel les lettres pourront 
apparaître 


nombre total de lettres proposées au cours d'une partie 


temps maximum (exprimé en dizaines de ms) s'écoulant 
avant l'apparition d'une nouvelle lettre 


meilleur score 

temps (cumulé) de réaction du joueur 

compteur d'erreurs 

numéro de la lettre courante 

coordonnées de la lettre courante 

code ASCII de la lettre courante 

code ASCII de la touche frappée par l'utilisateur 
temps moyen de réaction 

score 


Variables accessoires 


R$ 


3 


Raid de nuit 


1. Le jeu 


En pleine nuit, vous êtes aux commandes d'un bombardier avec pour 
mission d'anéantir une ville. Le temps vous est compté car l'un de vos 
moteurs est défaillant et vous perdez sans cesse de l'altitude. Il vous faut 
donc rapidement démolir les immeubles les plus élevés pour éviter de les 
percuter lors d'un prochain passage. D'autre part, vous ne pouvez larguer 
une nouvelle bombe que lorsque la précédente a atteint son but (ou le sol). 


Vous voyez donc votre avion traverser l'écran de gauche à droite à diverses 
reprises. À chaque passage, il peut perdre ou non (suivant le hasard) un peu 
d'altitude. Le ‘suspens’ en sera d'autant plus grand quand vous serez 
passé à ras d'un immeuble que vous aurez raté |! 


Vous larguez une bombe en appuyant sur la barre d'espace. Chaque fois 
qu'un immeuble est atteint, il est démoli sur une hauteur plus ou moins 
importante. Des sons d'explosion appropriés vous renseignent sur l'impor- 
tance des dégâts. 
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Le jeu s'achève lorsque votre avion percute un immeuble ou lorsque la ville 
a été entièrement détruite. Dans le premier cas, votre score est fonction de 
l'importance des destructions opérées. Dans le second cas, il dépend de la 
vitesse avec laquelle vous avez atteint votre objectif (il sera toujours plus 
élevé dans le second cas). 


Neuf niveaux différents vous sont proposés. Au niveau 1, les immeubles 
sont de petite taille tandis qu'au niveau 9, ils occupent une bonne partie de 
l'écran. 


Le programme affiche en permanence le niveau auquel vous jouez et le 
meilleur score déjà réalisé à ce niveau: (voir photo 1 hors texte : Vue de 
l'écran pendant le déroulement du jeu). 


2. Le programme 


100 REM ##########t RAID DE NUIT 44443646 de DEEE Ed 
105 GOSUB 9000 

110 REPEAT 

120 : GOSUB 8000 

130 s REPEAT 


140 : IF TR=1 THEN GOSUB 2000 ELSE WAIT 5 
150 : IF PEEK(#208)=#84 AND TR=0 THEN XB=XA: YB=YAs TRæi 
160 : GOSUB 3000: T=T+i 
165 IF TR=1 AND EX=0 THEN GOSUB 2000 
170 & UNTIL Flei OR ID=IM 
180 « IF ID=IM THEN GOSUB 5000 
190 « PLOT 8,26,S8TR#(8C): PLOT 8,26," " 
195 « IF SC>MS(NV) THEN MS(NV) =6C 
200 x WAIT 200 
210 x PLOT 24,24,"voulez vous" 

3 


220 : PLOT 24,25,"rejouer (O/N)" 

230 : GET R$:1 GET R$ 

240 UNTIL R#$#<>"O" 

260 END 

2000 REM ---- DEPLACEMENT BOMBE ------""""… 


13 


2005 
2010 
2020 
2030 
2040 
2050 
2070 
2080 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
3000 
5010 
3020 
8000 
8010 
8020 
8030 
8033 
8035 
8037 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8160 
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IF EX=1 THEN 2050 

PLOT XB,YB,32: YB=YB+i 

IF YB>Y2 THEN SHOOT: TR=0: RETURN 

IF SCRN(XB,YB)=32 THEN PLOT XB,YB,CB: RETURN 
EX=1 

EXPLODE: PLOT XB,YB,32: ID=ID+1: YB=YB+1 

IF RND(1)<PR OR YB>Y2 THEN EX=0: TR=0: RETURN 


RETURN 
REM ---- DEPLACEMENT AVION ----------""--"""" 
IF XA)=X2 THEN 3050 


IF SCRN(XA+2,YA)=CI THEN GOSUB 4000: RETURN 

PLOT XA,YA," "s XA=XA+i1: PLOT XA,YA,CAS$ 

RETURN 

PLOT KA,YA," "se IF RND(1)20.33 THEN YA=YA+1 

IF YA)>Y2 THEN GOSUB 4000 

XA=X1 

IF SCRN(XA,YA)=CI OR SCRN(XA+1,YA)=CI THEN GOSUB 4000: RETURN 
PLOT XA,VA,CA$ 


RETURN 
REM ---- 6P FIN PARTIE PAR DESTRUCTION AVION ----- 
SHOOT: WAIT 10: 


PLOT XA+2,YA,IN 

FOR K=i TO 7 

4 PLOT XA-1,YA,K: WAIT 8: EXPLODE 

NEXT K 

WAIT 50: EXPLODE: WAITIOs PLOT XA,YA," " 
SC=INT(1000#ID/IM): Flæi: RETURN 

REM ---- 6P FIN PARTIE PAR DESTRUCTION IMMEUBLES ---- 
WAIT 100: SC=1000+(24-YA)#100 

RETURN 

REM ---- INITIALISATION D'UNE PARTIE ---------- 
CLS: PLOT 2,25,"Niveau choisi (1 a 9)?" 
GET R$: NVzVAL(R#)s IF NV=0 THEN 8020 
PLOT 26,25,R$ 

FOR Y224 TO 26 

# PLOT 1,Y,12 

NEXT Y 

YB=23-NV: HM=0,5#NV+5: IM=0 

FOR XmX1+2 TO 2-1 

1 YM=YB-INT(RND(1)#HM) 

1 IMzIM+Y2-YM+1 

1 FOR Y=Y2 TO YM STEP -1 

1 PLOT X,Y,CI 

4 NEXT Y 

NEXT X 

ID=0: TRa0s FI=0 

XA=X11 YA=Yi1: XB=XA1 YB=YA 

PLOT XA,YA,CA$ 

PLOT 2,25,BL$ 


8170 
8180 
8185 
8190 
9000 
9010 
9020 
9030 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9500 
9510 
9520 
9530 
9540 
9550 


PLOT 2,25,"NIVEAU SCORE M-SCORE" 
PLOT 4,26,STR$ (NV) 
PLOT 16,26,S8TR$(MS(NV)) 


RETURN 
REM ----- INITIALIGSATIONS DU JEU -------------- 
PA=O: IN=21 I2=6 


PAPER PAs INK IN 

DIM MS(9) 

Kis=21 K2m374 Vim0i V2223 
CI=64+1281 CB=92: Ci=94: C2=95 
DATA 63,45,45,63,63,45,45,63 
C=CI-128: GOSUB 9500 

DATA 0,0,0,0,8,7,8,0 

C=CB: GOSUB 9500 

DATA 56,36,35,32,39,83,7,15 
CæCi: GOSUB 9500 

DATA 0,0,60,2,57,63,32,0 

C=C2: GOSUB 9500 
CA$=CHR$# (C1) +CHR$# (C2) 

POKE #26A,10 

PR=0,6 

BL$=" ] 

FOR I=i TO 36: BL$eBL$+" "4 NEXT I 
RETURN 

REM ---- INIT CARAC GRAPHIQUES ------------- 
AM=46080+8%C 

FOR I=0 TO 7 

t READ XX: POKE AM+I,XX 

NEXT I 

RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du fond (ici noir) 


Remplacez, en 9010, la valeur O (dans PA = O) par un nombre de votre 
choix (0 à 7). Notez que cette modification agit sur la couleur des 
immeubles. 
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2. Pour modifier la couleur de l'avion et de la bombe 


Remplacez, en 9010, la valeur 2 (dans IN = 2) par un nombre de votre 
choix (0 à 7). Notez que cette modification agit sur la couleur des 
immeubles. 


3. Pour que l'avion perde de l'altitude plus ou moins rapidement 


Il vous faut savoir que la perte d'altitude est régie par l'instruction 3050. 
Actuellement l'avion a, à chaque passage, une chance sur trois (0.33) de ne 
pas descendre. 


Si vous souhaitez que l'avion descende plus vite, remplacez la valeur 0.33 
par un nombre plus petit, par exemple: 


3050 PLOT XA, YA,”  ’’:IF RND(1)>0.15 THEN YA = YA + 1 
Si vous voulez que l'avion descende à chaque passage, il vous suffit 
d'écrire: 

3050 PLOT XA,YA," :YA=YA +1 


Si vous souhaitez que l'avion descende plus lentement, remplacez 0.33 par 
un nombre plus grand, tout en étant inférieur à 1. Par exemple, avec: 


9050 PLOT XA,YA,”  "’:IF RND(1)>0.5 THEN YA = YA + 1 


l'avion descendra, en moyenne, une fois sur deux. 


Évitez de choisir des valeurs trop proches de 1 car l'avion descendrait alors 
trop lentement et le jeu risquerait de perdre de l'intérêt. 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard 
— Création de caractères graphiques 


— Lecture rapide du clavier 
— Configuration clavier/écran 


b) Le programme principal (100-260) 


105 appelle le sous-programme d'initialisation du jeu. 

110 et 240 répètent les instructions 120 à 230 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer. 
120 appelle le sous-programme d'initialisation d'une partie. 


130 et 170 répètent les instructions 140 à 165 jusqu'à la fin de la 
partie (écrasement de l'avion ou destruction de toute la ville). 


140 assure le déplacement de la bombe si un larguage est en cours 
(TR = 1}. 

150 prend en compte une demande de larguage (barre d'espace) si 
aucun autre larguage n'est en cours. 

160 déplace l'avion et actualise le temps. 

165 déplace la bombe, s'il y a lieu. 


180 appelle le sous-programme de fin de partie par destruction de la 
ville s'il y a lieu. 


190-195 affichent votre score et actualisent le meilleur score. 
200-230 vous demandent si vous désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9210) 


9010-9020 fixent les différentes couleurs (fond, encre, lignes inférieures). 
9030 réserve le tableau des meilleurs scores. 
9060 fixe les limites du domaine de jeu. 


9070-9160 fabriquent les caractères graphiques utilisés pour représenter 
l'avion, la bombe et les immeubles. 


9170 supprime le bip du clavier et le curseur. 


d) Le sous-programme d'initialisation de partie (8000-8190) 


8010-8030 vous font choisir le niveau de jeu. 


8033-8037 modifient la couleur d'encre des trois lignes inférieures. 


8040-8110 dessinent les immeubles. 


8120 initialise le nombre d'immeubles détruits, les indicateurs de larguage 
et de fin de partie. 


8130-8140 dessinent l'avion dans sa position initiale. 


8160-8185 affichent le niveau de jeu et le meilleur score. 


e) Le sous-programme de déplacement de la bombe (2000-2080) 


(Ce sous-programme gère également l'explosion d'immeuble). 


2005-2040 avancent la bombe lorsqu'aucune explosion n'est en cours; 
examinent si elle atteint le sol ou un immeuble. Dans ce dernier cas, 
2040 met en place l'indicateur ‘explosion en cours”. 


2050-2070 exécutées lorsqu'une explosion est en cours, ces instructions 
incrémentent le compteur d'immeubles détruits, effacent un 
morceau” d'immeuble et déterminent si l'explosion doit ou non se 
poursuivre sur la partie inférieure de l'immeuble. 


f) Le sous-programme de déplacement d'avion (3000-3100) 


3010-3040 déplacent l'avion s'il n'a pas atteint le bord droit de l'écran, en 
regardant s'il percute un immeuble. Dans ce dernier cas le sous- 
programme 4000 est appelé. 


3050-3100 réaffichent l'avion à gauche de l'écran, après avoir éventuelle- 
ment modifié son altitude. 


g) Les sous-programmes de fin de partie (4000-4070 et 5000- 
5020) 


4010-4060 explosion (couleurs et sons) de l'avion. 
4070 calcul du score (en cas de fin par percution d'immeuble). 


5010 calcul du score (en cas de fin par ville détruite). 


5. Liste des variables 


PA couleur du fond 
IN couleur de l'encre pour le domaine de jeu 


18 


12 
MS(9) 


X1,X2,Y1,Y2 
CI 

CB 

c1 


c2 


CA$ 
PR 


BL$ 


NV 
IM 


ID 
TR 


FI 


XA,YA 
XB,YB 
EX 


SC 


couleur de l'encre pour les trois lignes inférieures 


tableau contenant le meilleur score relatif à chacun des neuf 
niveaux 


coordonnées du domaine de jeu 

code du caractère utilisé pour dessiner les immeubles 
code du caractère utilisé pour dessiner la bombe 

code du caractère utilisé pour dessiner la partie gauche de 
l'avion 

code du caractère utilisé pour dessiner la partie droite de 
l'avion 

chaîne de deux caractères représentant l'avion 


probabilité pour que l'explosion d'une partie d'un immeuble 
entraîne l'explosion de la partie inférieure 


chaîne de 36 caractères “blanc” utilisée pour l'effacement 
d'une ligne d'écran 


niveau de jeu 


nombre d'immeubles (plus précisément de “cases” repré- 
sentant les immeubles) 


nombre de ‘cases immeubles” détruites 


si 1 : larguage en cours (une bombe est en train de tomber) 
si 0: aucun larguage en cours 


indicateur de fin de partie: 
0: cas normal 

1: fin de partie 
coordonnées de l'avion 
coordonnées de la bombe 


indicateur explosion en cours: 
0: pas d'explosion 
1: explosion en cours 


score 


Variables auxiliaires 


R$ X Y C 


HM,YB (dans le sous-programme 8000) 
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4 
FLIP FLOP 


1. Le jeu 


Vous disposez de neuf pions réversibles disposés suivant une grille 3 x 3. 
L'une de leur face est bleu clair tandis que l’autre est recouverte d'un 
quadrillage rouge et jaune. 


Au départ, le programme dispose les pions dans la grille, la face visible 
étant tirée au hasard. Le but du jeu consiste à aboutir, en un minimum de 
coups à la situation suivante: 

— le pion central est bleu 

— les autres pions sont rouges/jaunes 

À chaque coup, vous choisissez le pion sur lequel vous voulez agir. Le 


programme vous retourne alors, non seulement ce pion, mais également 
un certain nombre d'autres, suivant les règles suivantes: 
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Pions retournés en plus 


Pion choisi É se 
du pion choisi 






Le pion central. Les quatre pions des coins. 


Les deux pions voisins situés sur 
la même rangée. 


Un pion situé en milieu d'une rangée 
horizontale ou verticale. 


Les trois voisins immédiats. 





Un pion situé dans un coin. 


Malgré une lointaine ressemblance avec le ”rubik’s cube”, vous verrez que 
ce jeu est beaucoup plus facile à pratiquer. 


Vous choisissez un pion en y amenant le curseur représenté par un petit 
carré bleu foncé situé à l'intérieur d'un pion. Ce “curseur” se déplace à 
l'aide des quatre touches fléchées. 


Le programme vous donne en permanence le numéro du coup que vous 
jouez et le meilleur score déjà obtenu. 





Vue de l'écran pendant le déroulement du jeu 
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2. Le programme 
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100 
110 
120 
130 
140 
150 
160 
170 
175 
180 
190 
200 
210 
220 
5000 
5010 
5020 
5030 
35040 
5050 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6100 
6110 
6120 
6200 
6210 
6230 
6400 
6410 
6420 
6430 
6440 
6450 


REM ######4uuxx FLIP FLOP 6464 dede Dee DE DE DE HE UE DEEE EEE DEEE 
GOSUB 9000 
REPEAT 
: GOSUB 8000 
s REPEAT 
4 NC=NC+1: PLOT 3,25,S8TR$(NC)4 PLOT 3,25," " 
t GOSUB 7000: GOSUB 6000: GOSUB 5000 
# UNTIL NN=8 AND T(3,3)=1 
5 IF NC<MS OR M6=0 THEN MS=NC 
t SHOOT: PLOT 24,24,"GAGNE": WAIT 100 
t PLOT 20,25,12: PLOT 21,25,"rejouez vous?" 
1 GET R$: GET R$ 
UNTIL R$<>"0" 
END 
REM ---== SP ANALYSE D'UN COUP --------" 
NN=0 
FOR 1=2 TO 4: FOR J=2 TO 4 
1 IF T(I,J)=-1 THEN NNeNN+i 
NEXT J: NEXT I 
RETURN 
REM = SP JEU DU COUP PROPOSE ----""" 
IP=l1 JPe] 
IF IP<>3 OR JP<)>3 THEN 6100 
: GOSUB 6500 
1 FOR 122 T04 STEP 21 FOR J=2 TO 4 STEP 2 
1 GOSUB 6500 
5 NEXT Je NET 1! 
t RETURN 
IF IP<>3 THEN 6200 
3 FOR Is=2 TO 41 GOSUB 6500: NEXT I 
t RETURN 


IF JP<>3 THEN 6400 

4 FOR J=2 TO 4: GOSUB 6500: NEXT J 
5 RETURN 

REM 


1 FOR I=lP-1 TO IP+i 
5 FOR J=JP-1 TO JP+1 
3 GOSUB 6500 

à NEXT Ju NEXT ! 
RETURN 


8500 
6510 
6520 
6530 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7200 
7210 
7220 
8000 
8010 
8015 
8020 
8030 
8040 
8050 
8040 
8070 
8080 
8090 
8100 
8110 
8120 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
9000 
9010 
9020 
9030 
9040 
9050 


REM ----- SP INVERSION D'UN PION ------------- 
T(I,d)=-T(I1,J) 

GOSUB 8500 

RETURN 

REM ----- SP LECTURE COUP PROPOSE ---------------- 
PLOT 17,24,12: PLOT 18,24,"choisissez votre pion" 
I1s=2: J=2 

X=8#(1-2)+111 Yabk(J-2)+6 

SC=6CRN(X,V) 

PLOT X,Y,CC 

CLePEEK(#208): IF CLe#38 THEN 7060 

IF CLl=#64 THEN 7200 
I=I-(CLe#AC)#(132)+(CL=#BC)#(1<4) 
J=J-(CLlæ=#9C)#+(J>2)+(CLæe#B4)#+(J<4) 

PLOT X,Y,SC: WAIT 20: GOTO 7030 


PING: WAIT 1001 PLOT X,Y,8C 
PLOT 17,24," " 

RETURN 

REM ----- SP INITIALISATION D'UNE PARTIE ------""-- 
CLS1 PLOT 10,1," FLIP - FLOP\" 

NC=0 

NN=0 

FOR I=2 TO 41 FOR J=2 TO 4 


t T(I,d)=is IF RND(1)90,5 THEN T(I,J)=-1: NN=NN+i 
NEXT Js NEXT I 

IF T(3,3)=1 AND NN=8 THEN 8020 

PLOT 3,24,"COUP M-SCORE" 

PLOT 12,25,STR$#(MS): PLOT 12,25," " 

FOR 1=2 TO 4: FOR J=2 TO 4 


1 GOSUB 8500 

NEXT Je NEXT I 

RETURN 

REM ----- SP DESSIN PION I1,J SI VALIDE ----------- 
IF 12 OR 1>4 OR J<2 OR J>4 THEN RETURN 
XD=8#(1-2)+91 YD=6*x(J-2)+4 

CH#=CP#$: IF T(I,J)=-1 THEN CH$=CN$ 


FOR Y=YD TO YD+3 

t PLOT XD,Y,CH$ 

NEXT Y 

RETURN 

REM ----- SP INITIALISATION DU JEU -------------- 
IN=b: PA=4: CLS: PAPER PA: INK IN 

DIM T(5,5): M6=0 

CN=95+128: CP=96: CC=32 

DATA 51,51,12,12,51,531,12,12 

C=CN-126: GOSUB 9500 
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9060 DATA 63,63,63,63,63,63,b3,63 

9070 C=CP: GOSUB 9500 

9080 CN$="": FOR Iai TO 51 CN$=CN$+CHR$# (CN): NEXT I 
9090 CP$="": FOR I=i TO S: CP#=CP#+CHR$ (CP): NEXT I 
9100 POKE #26A,10 

9110 RETURN 

9500 REM ----- SP INIT CARAC GRAPHIQUES -------------- 
9510 AM=46080+8#C 

9320 FOR I=0 TO 7 

9530 : READ XX: POKE AM+I,XX 

9540 NEXT 1! 

9530 RETURN 


3. Si vous souhaitez personnaliser ce programme 


Pour modifier la couleur des pions 


Il vous faut savoir que: 
e le côté pile est représenté par la couleur d'encre placée en 9010, ici 6, 
c'est-à-dire cyan (bleu ciel) 


e le côté face est représenté par un quadrillage en "vidéo inverse’. Autre- 
ment dit, les deux couleurs qui le constituent sont: 


— le complémentaire de la couleur de fond (4), c'est-à-dire 7 — 4 = 3 
(jaune) 

— le complémentaire de la couleur de papier (6), c'est-à-dire 
7 — 6 = 1 (rouge) 


Par exemple, si vous remplacez 9010 par: 


IN=3 : PA=0: CLS: PAPER PA: INK IN 


vous obtiendrez: 


— un fond noir (0) 
— du jaune (3) pour le côté pile 
— un quadrillage bleu (7 — 3 = 4) et blanc (7 — 7 = O) pour le côté face. 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard 

— Création de caractères graphiques 
— Lecture rapide du clavier 

— Configuration clavier/écran 


b) Le programme principal (100-220) 


110 appelle le sous-programme d'initialisation du jeu. 

120 et 210 répètent les instructions 130 à 200 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme dl'initialisation d'une partie. 


140 et 170 répètent les instructions 150 et 160 (jeu d'un coup) 
jusqu'à ce que vous ayez gagné: 
150 incrémente le compteur de coups et affiche sa valeur, 


160 appelle les sous-programmes: lecture du coup, jeu du coup 
(inversion des pions correspondants), analyse du coup. 


180-200 vous disent que vous avez gagné, actualisent le meilleur 
score et vous demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9110) 


9010 fixe les couleurs de fond et de papier. 


9030-9090 fabriquent les caractères graphiques représentant les deux 
faces d'un pion. 


9100 supprime le bip du clavier et le curseur d'écran. 


d) Le sous-programme d'initialisation d'une partie (8010-8120) 


8010-8015 effacent l'écran, affichent le nom du jeu et initialisent le comp- 
teur de coups. 
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8020-8060 choisissent au hasard la position (pile ou face) de chaque pion 
et comptent le nombre de côtés “face”. On évite la situation 
gagnante. 


8070-8080 affichent le meilleur score. 


8090-8110 dessinent les pions en utilisant le sous-programme 8500. 


e) Le sous-programme de dessin d'un pion (8500-8570) 


Il détermine la position sur l'écran d'un pion de coordonnées | et J et le 
dessine. Notez que, pour des raisons de simplification du programme, on 
utilise une grille de 5 x 5. Seules les cases correspondant à | — 2,3,4 et J — 
2,3,4 représentent effectivement des pions. 


f) Le sous-programme de lecture du coup proposé (7000-7220) 


7010 affiche en clignotant ‘choisissez votre pion”. 


7020-7100 vous permettent de déplacer le curseur grâce aux touches 
fléchées. Ces instructions sont répétées jusqu'à ce que vous frappiez 
la barre d'espace. 


7200-7210 émettent un son de clochette pour montrer que votre coup a 
été pris en compte et effacent le curseur. 


g) Le sous-programme de jeu du coup proposé (6000-6450) 


6030-6070 cas du pion central. 

6100-6120 cas d'un pion situé au centre d'une colonne. 
6200-6230 cas d'un pion situé au centre d'une ligne. 
6400-6450 cas d'un pion situé dans un coin. 


h) Le sous-programme d'analyse d'un coup (5000-5050) 


Il compte le nombre de pions en position ‘’face”’ (rouge et jaune). 
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5. Liste des variables 


PA 
T(5,5) 


MS 
CN 
CP 
cc 
CN$ 


CPS 
NC 
NN 
XD,YD 
1,J 
IP,JP 
X,Y 
SC 


couleur d'encre 
couleur de fond 


tableau représentant la situation de chaque pion: 

1: côté pile (bleu) 
— 1: côté face (rouge et jaune) 
Notez que pour des raisons de simplification, nous employons un 
tableau 5 x 5 et non 3 x 3. Seuls les éléments T{i,j) (2<i<4; 
2<j<4) correspondent aux pions effectivement dessinés sur 
l'écran. 


meilleur score 

code ASCII du caractère servant à dessiner les pions, côté face 
code ASCII du caractère servant à dessiner les pions, côté pile 
code ASCII du caractère servant à dessiner le curseur 


chaîne de cinq caractères représentant une partie d'un pion, côté 
face 


chaîne de caractères représentant une partie d'un pion, côté pile 
numéro du coup 

nombre de pions côté face 

coordonnées écran du coin haut gauche d'un pion 
coordonnées d'un pion (varient entre 2 et 4) 

coordonnées du pion choisi (varient entre 2 et 4) 

coordonnées du curseur 

score 


Variables auxiliaires 


C CH$ CL 
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Drôles de mines 


1. Le jeu 


Ce sont effectivement de drôles de mines qu'il va vous falloir déjouer. En 
effet, contrairement aux mines habituelles, elles sont capables de sauter” 
une multitude de fois. 


Votre mission: faire parvenir un maximum d'espions en territoire ennemi. 
Pour cela, ils doivent obligatoirement traverser un domaine infesté de 
mines. Vous disposez de douze hommes, prêts à risquer leur vie et qui 
suivent à la lettre l'itinéraire que vous leur indiquez par radio. 


Vos douze espions sont alignés sur la gauche de l'écran. Le premier attend 
que vous le dirigiez à l’aide des quatre touches fléchées (ou, le cas échéant, 
de la poignée de jeu). Vous devez tenter de le faire parvenir à droite de 
l'écran (à n'importe quelle hauteur). S'il saute sur une mine (avec sons et 
décors appropriés), vous verrez aussitôt l'espion suivant se présenter au 
départ. 
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Les mines sont, bien entendu, invisibles. Par contre, de nombreux 
obstacles, infranchissables, vous serviront de repère. 


Bonne chance et n'oubliez pas que ces mines sont “drôles”. 





Vue de l'écran pendant le déroulement du jeu 


2. Le programme 


100 
110 
120 
130 
140 
150 
160 
170 
180 


REM #########x DROLE DE MINE #4#44 44464646 4 
GOSUB 9000 

REPEAT 

1: GOSUB 8000 

4 FOR I=i TO NV 

8 XæeXIr Y=YIs PLOT X,Y,CBu PLOT 2,1,32 

1  CLePEEK(#208) 

1 IF Cle#38 THEN 160 

1 XN=X-(CLæ#AC)#(X>X1)+(CLæ#BC)#(X<38) 
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190  YN=Y-(CL=h9C)#(Y>Y1)+(CLe#B4)#(Y<Y2) 
200 : SX=SCRN(XN,YN) 

210 : IF SX=CM THEN GOSUB 3000: GOTO 260 
215 : PLOT X,Y,32 

220 : IF SX<>CO THEN X=XN: Y=YN 

230 s PLOT X,Y,CB 

240 3 IF X=38 THEN GOSUB 2000: GOTO 260 
250 « WAIT 20: GOTO 160 

260 : NEXT I 

265 5 IF SC)>MS THEN MS=26C 

270 « PLOT 10,25,"voulez vous rejouer (D0/N)' 


280 « GET Ré: GET R$ 
290 UNTIL R$<>"O" 

310 END 

2000 REM ---- GP TRAVERGEE REUSSIE ----------"- 
2010 ZAP: SC=6C+1 

2020 PLOT 3,26,8TR#(8C)e PLOT 3,26," " 

2030 WAIT 504 PLOT X,Y,32 

2040 RETURN 

3000 REM ---- GP EXPLOBION MINE -------"-""" 
3010 PLOT X,Y," "4 PLOT XN,YN,CBr WAIT 201 EXPLODE 
3020 PLOT XN,YN,C24 WAIT 404 PLOT XN,YN,C3s WAIT 60 
3030 PLOT XN,YN,CM 

3040 RETURN 

8000 REM ---- GP INIT D'UNE PARTIE === 
8010 CLSr SC=0 

8020 PLOT 2,25,"SC0RE M-SCORE" 

8030 PLOT 10,26,S8TR$ (MS) 

8040 FOR I=1 TO NO 

8050 à X=X1+INT(RND(1)#(X2-X1+1)) 

8060 à Y=VI+INT(RND(1)#(V2-V1+1)) 

8070 : IF SCRN(X,Y)<>32 THEN 8050 

8080 : PLOT X,Y,CO 

8090 NEXT I 

8100 FOR I=1 TO NM 

8110 1 X=X1+INT(RND(1)#(X2-X1+1) ) 

8120 & VeVI+INT(RND(1)#(V2-Y141)) 

8130 à IF SCRNIX,Y)<>32 THEN 6110 

8140 s PLOT X,Y,CM 

8150 NEXT I 

8160 FOR I=1 TO NV 

8170 à PLOT 2,1,CB 

8180 NEXT I 

8190 RETURN 

9000 REM ---- 8P INITIALIBATIONS ===" 
9010 IN=i1 PA=3s INK IN1 PAPER PA 


9020 Xi=4s X2=371 YimOs Y2m233 XI=31 YI=15 
9030 NV=12: NO=150: NM=40 

9040 CB=64: CO=94+128r CM=IN: C2=95: C3=96 
9050 DATA 8,0,15,28,44,10,18,27 

9060 C=CB: GOSUB 9500 

9070 DATA 51,51,12,12,51,51,12,12 

9080 C=C0-128: GOSUB 9500 

9090 DATA 20,23,0,12,8,2,34,59 

9100 C=C2: GOSUB 9500 

9110 DATA 2,16,1,4,32,1,20,1 

9120 C=C3: GOSUB 9300 

9130 POKE #264A,10 

9140 RETURN 

9500 REM ---- SP INIT CARAC GRAPHIQUES ---------------- 
9510 AM=46080+8#C 

9520 FOR I=0 TO 7 

9530 1 READ XX: POKE AM+I,XX 

9340 NEXT I 

9550 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier le nombre d'espions 


Remplacez le nombre 12 de l'instruction 9030 par une valeur de votre 
choix ne dépassant pas 24. 


2. Pour modifier le nombre d'obstacles 


Remplacez le nombre 150 de l'instruction 9030 par la valeur de votre 
choix. 


3. Pour modifier le nombre de mines 


Remplacez le nombre 40 de l'instruction 9030 par la valeur de votre choix. 


Notez bien qu'un trop grand nombre de mines risque de rendre le jeu diffi- 
cile, voir impossible. Un trop petit nombre risque, par contre, de le rendre 
trop facile. 
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4. Pour que les mines n’explosent qu'une seule fois 


Remplacez 3030 par: 


3030 PLOT XN,YN,” ” 


5. Pour utiliser une poignée de jeu 


Chargez le programme ‘ MANETTE 1” comme expliqué en annexe. Bran- 
chez la poignée du côté droit et remplacez les instructions 160 à 190 par 
les suivantes: 


160 : C=PEEK(#400) 

170 : IF C=191 THEN 160 

180 : XNEX-((C AND 1)=0)#(X>XI1)+((C AND 2)=0)#(X<38) 
190 : YN=Y-((C AND 16)=0)#(Y>V1)+((C AND 8)=0)#(Y<Y2) 


4. Description du programme 


a) Techniques utilisées décrites en annexe 


— Hasard 

— Création de caractères graphiques 
— Lecture rapide du clavier 

— Configuration clavier/écran 

— Poignées de jeu 


b) Le programme principal 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 290 répètent les instructions 130 à 280 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 
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140-260 répètent douze fois la tentative de traversée d'un espion. 
Pour chaque tentative: 


150 dessine l'espion au départ, et efface un espion de la file 
d'attente. 


160-250 sont répétées jusqu'à ce que l'espion ait sauté sur une 
mine ou qu'il ait réussi sa traversée : 


160-190 attendent qu'une touche soit enfoncée et déterminent 
la position correspondante. 

200-230 si une mine se trouve à cette nouvelle position, le sous- 
programme 3000 simule l'explosion de la mine. Dans le cas 
contraire et s'il ne s’agit pas d'un obstacle, l’espion est dessiné 
dans sa nouvelle position après avoir été effacé de l'ancienne. 


240 appelle le sous-programme traversée réussie” si l'espion 
atteint le bord droit. 


270-280 vous demandent si vous désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9140) 


9010 fixe les couleurs d'encre et de fond. 


9020 fixe les limites du domaine qui contiendra les obstacles et les 
mines. 


9030 fixe le nombre d'espions, le nombre d'obstacles et le nombre de 
mines. 


9040-9120 fabriquent les caractères graphiques utilisés pour représenter 
les espions et les obstacles. 


9130 supprime le “bip” et le curseur. 


d) Le sous-programme d'initialisation d'une partie (8000-8190) 


8010-8030 initialisent le score, effacent l'écran et affichent le meilleur 
score. 


8040-8090 dessinent au hasard les différents obstacles. 
8100-8150 placent les bombes au hasard. 
8160-8180 dessinent la file d'attente d'espions. 
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e) Le sous-programme d'’explosion d'une mine (3000-3030) 


3010 dessine d'abord l'espion à l'emplacement voulu et, après une brève 
attente, fait retentir une explosion. 


3020 simule la ‘destruction de l'espion en faisant se succéder trois 
caractères différents: “morceaux”, “poussières”, ‘espace. 


f) Le sous-programme ‘’ traversée réussie’ (2000-2040) 


2010 émet un son ‘’zap'” et incrémente le score. 
2020 affiche le score. 


2030 efface l'espion qui vient de traverser. 


5. Liste des variables 


IN 
PA 
X1,X2,Y1,Y2 


XI,YI 
NV 
NO 
NM 
CB 
co 
CM 


C2,C3 


SC 
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couleur d'encre 
couleur de fond 


coordonnées du domaine dans lequel se trouvent les 
obstacles et les mines 


coordonnées de la position de départ d'un espion 
nombre d'espions 

nombre d'obstacles 

nombre de mines 

code du caractère représentant un espion 

code du caractère représentant un obstacle 


code du caractère représentant une mine (il doit être 
"invisible ‘’) (Nous avons choisi le code de la couleur de 
l'encre) 


codes des caractères représentant l'espion (ou plutôt ses 
restes’) au cours d'une explosion 


score (nombre d'espions traversés) 
numéro de l'espion en cours de traversée 


X,Y coordonnées de l'espion en cours de traversée 


CL code du caractère frappé au clavier 
XN,YN coordonnées du prochain emplacement de l'espion 
MS meilleur score 


Variables auxiliaires 


X,Y (de 8040 à 8150) coordonnées d'un obstacle ou d'une mine 
C SX R$ 
| (dans le sous-programme 8000) 
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GOAL 


1. Le jeu 


Vous venez d'être sélectionné comme goal dans une grande équipe de 
football. Saurez-vous être à la hauteur de la situation en interceptant tous 
les tirs de vos adversaires qui se montrent particulièrement adroits. 


Les buts sont matérialisés par deux poteaux sur la droite de l'écran. Vous 
déplacez le goal, entre les deux poteaux à l’aide des deux touches ” ? et 

| ‘’. Douze tirs au but vont avoir lieu. Pour chaque tir, vous voyez appa- 
raître en un endroit quelconque de l'écran, un joueur accompagné d'un 
ballon. Au bout d'un court instant (variable d'une fois à l’autre), le’ joueur 
“’shoote” dans le ballon et il vous faut l'intercepter. Vous ne pouvez dépla- 
cer le goal que pendant le déplacement du ballon. Comme vous le consta- 
terez, vos adversaires sont très habiles puisqu'ils tirent toujours dans les 
buts. 


36 


Le programme affiche le nombre de coups tirés et le nombre de ballons 


interceptés. 


BALLOH 


5 





Vue de l'écran pendant le déroulement du jeu 


2. Le programme 


100 
110 
120 
130 
140 
150 
160 
170 
175 
180 
190 
200 


REM HAN GOAL HHEUUUUUEUUENEUENEUEUEUEUEUEUENE NE UE N 
8C=0: GOSUB 9000 
FOR IC=1 TO NC 


û 
î 
0 
1 
î 
P 


GOSUB 5000 

IF PEEK(768)=176 THEN WAIT 6:G0OTO 190 
DLePEEK(735)-135 

PLOT X6,YG," "se PLOT XG,YG+1," " 
YG=YG+(DL=4)#(YG>P1+1)#(Y6<2Y DR XG-1<>X) 
VG=YG-(DL=3)#(YG<P2-2)#(Y6<>Y OR XG-1<>K) 


LOT XG,VG,G1$: PLOT X6,YG+1,G2$ 


PLOT X,Y,32 
X=X+2: Y=Y+DY 
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210 

215 

220 

230 

240 

250 

260 

4000 
4008 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
3000 
5010 
3020 
5030 
5040 
5050 
5060 
5065 
3070 
5080 
5090 
5095 
3100 
5110 
3120 
5125 
5130 
5140 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 


4 IF X>=XG THEN GOSUB 4000: GOTO 240 
1 IF SCRN(X,Y)<>32 THEN GOSUB 4000: GOTO 240 
s PLOT X,Y,CB 
1 GOTO 140 
NEXT IC 
PRINT CHR$(6);CHR$#(17) 
END 
REM .., SP FIN D'UN COUP ......sssssssusssuns 
IF SCRN(X,Y)=32 THEN ZAP: GOTO 4050 
SC=6C+1 
SOUND 4,25,0: PLAY 0,1,1,500 


PLOT 14,25,STR#(S8C)1 PLOT 14,25," " 
WAIT 100 

PLOT XJ,YJ,32: PLOT XJ,YJ+1,32 

WAIT 100 

RETURN 


REM ,.,., SP INITIALISATION D'UN COUP .,...,,,,,,,,., 
PLOT 7,25,STR$#(IC): PLOT 7,25," " 
X=X1+2#INT(RND(1)#(X2-X1+1)/2) 
Y=Y1+INT(RND(1)#(Y2-YV1)+1) 
DY=INT(RND(1)#6)-2 

YI=Y+(38-X) #DV/2 

IF YI<=P1 OR YI>=P2 THEN 5020 
XJ=X-1: YJ=Y-1 

PLOT X,Y,CB 

PLOT X-1,Y-1,91 

PLOT X-1,Y,J3 

PLOT X,Y,CB 

PLOT 25,25,12: PLOT 26,25,"ATTENTION" 
WAIT RND(1)#TM+100 

PLOT 25,25," je 

PLOT X-1,Y,J2 

SOUND 4,25,04 PLAY 0,1,1,600 
RETURN 

REM .,..,. SP INITIALISATIONS .. ss sssesssssuuses 
PA=3: IN=4 

PAPER PAs INK IN 

PPa$r IGsi 

XG=36: YGælis TM=100 

NC=12 

Xi=3: X2=15 

Yisi:s Y2223 

Pi=2s P2=21 

CB=3b: Gi=b41 62294 

Ji=95: J2=96: J3=123 

DATA 0,7,7,3,63,7,11,19 

C=61: GOSUB 9500 


9130 
9140 
9150 
9160 
9170 
9180 
9183 
9185 
9186 
9188 
9190 
9200 
9210 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9315 
9317 
9320 
9330 
9300 
9510 
9520 
9530 
9540 


DATA 35,5,9,17,17,17,51,0 
C=62: GOSUB 9500 

DATA 0,56,56,48,63,56,52,50 
C=Ji: GOSUB 9500 

DATA 49,40,36,38,38,38,51,0 
C=J2: GOSUB 9500 

DATA 12,30,63,63,63,63,30,12 
C=CB: GOSUB 9500 

DATA 49,40,40,40,40,40,460,0 
C=J3: GOSUB 9500 
G1$=CHR$ (IG) +CHR$ (61) 
G2$=CHR$ (16) +CHR$ (62) 

PRINT CHR$(6);CHR# (17); 

CLS 

PLOT X6,YG6,61$ 

PLOT XG,YG+1,62$ 

PLOT 4,24,"BALLON SCORE" 
FOR J=0 TO 1 

: FOR I=0 TO 1 

1 PLOT XG+1,P1-J,PP+16 
1 PLOT XG+1,P2+J,PP+16 
à NEXT I 

à PLOT XG+2,P1-J,PA+16 
: PLOT XG+2,P2+J,PA+16 
NEXT J 

RETURN 

AM=46080+8%C 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 
NEXT I 

RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour changer la couleur du fond (du terrain) 


Remplacez en 9010, le chiffre 3 (dans PA — 3), par une valeur de votre 
choix (0 à 7). Par exemple: 


9010 PA=2: IN=4 


vous donnera un fond vert. 
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2. Pour changer la couleur du joueur et du ballon 


Remplacez en 9010, le chiffre 4 (dans IN = 4), par une valeur de votre 
choix. Par exemple: 


9010 PA=3: IN=1 


donnera la couleur rouge au joueur et au ballon. 


REMARQUE: Évitez de donner la même valeur pour PA et pour IN car, dans 
ce cas, le joueur et le ballon deviendraient de la même couleur que le fond. 
Ils seraient alors “invisibles”. 


3. Pour modifier le nombre de coups tirés lors d'une partie 


Remplacez, en 9050, la valeur 12 par un nombre de votre choix. 


4. Pour modifier la taille des buts 


Modifiez, en 9080, les valeurs de P1 (ici 2) et de P2 (ici 21) qui fixent la 
position des poteaux. 


Ainsi : 
9080 P1-8: P2-18 
vous fourniront de petits buts, 


tandis qu'avec: 
9080 P1—-1: P2-25 


ils occuperont toute la hauteur de l'écran. 


5. Pour utiliser une poignée de jeu 


Chargez le programme " MANETTE 1" comme expliqué en annexe. Bran- 
chez la poignée du côté droit et remplacez les lignes 140,150,170,175 
par: 


144 : DL=FEEK(#460) 

156 : IF DL=191 THEN WAIT 6: GOTO 199 

179 : YG=YG+((DL AND 16)=6)#{YG:F1+1)#(YGE5Y OR XG-1£5:X) 
175 : YG=YG-{(DL AND 8)=6) x (YGEP2-2)#(YGE:Y OR XG-125X) 


Notez que l'instruction 160 n'est pas modifiée. 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 

— Poignées de jeu. 


b) Le programme principal (100-260) 


110 initialise le score et appelle le sous-programme d'initialisation du jeu. 
120-240 répètent douze fois le tir d'un ballon. Pour chaque coup, les 
instructions 130 à 220 sont répétées jusqu'à ce que le ballon atteigne 
la ligne des buts: 
130 appelle le sous-programme d'initialisation d'un coup (en 5000). 


140-180 déplacent le goal si l'utilisateur l'a demandé en appuyant sur 
l'une des touches ” ? ou” |” 


190-220 déplacent le ballon. Si celui-ci atteint le niveau des buts, il y 
a appel du sous-programme de fin d'un coup (en 4000). 


c) Le sous-programme d'initialisation du jeu (9000 à 9330) 


9010-9080 fixent les couleurs du fond, du goal, du joueur, des buts et du 
ballon ainsi que les limites du terrain et de la zone à l'intérieur de 
laquelle le joueur peut apparaître. 


9090-9200 fabriquent les caractères graphiques utilisés pour représenter 
le joueur, le goal, le ballon et les buts. Ces instructions emploient le 
sous-programme placé en 9500. 


9210 supprime le “bip” du clavier et le curseur de l'écran. 
9240-9250 dessinent le goal au milieu des buts. 
9270-9320 dessinent les deux poteaux des buts. 
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d) Le sous-programme d'initialisation d’un coup (5000 à 5140) 


5010 affiche le numéro du coup qui va être joué. 
5020-5030 choisissent au hasard un emplacement pour le joueur. 


5040-5060 choisissent au hasard une direction de tir telle que la trajec- 
toire du ballon passe entre les deux poteaux. 


5065-5100 dessinent le ballon et le joueur ‘prêt à shooter” et font cligno- 
ter le mot ATTENTION”. 


5110-5130 dessinent le joueur ”’shootant”’ dans le ballon et émettent un 
son approprié. 


e) Le sous-programme de fin d’un coup (4000-4080) 


4008 fait entendre un ‘’zap” si le goal a raté le ballon. 


4020-4040 augmentent de un le score et l'affichent dans le cas où le goal 
a intercepté le ballon. 


4050-4070 effacent le joueur. 


5. Liste des variables 


PA couleur de fond (papier) 

IN couleur d'encre employée pour le joueur et le ballon 

PP couleur des poteaux des buts 

IG couleur d'encre employée pour le goal 

XG,YG coordonnées du goal 

NC nombre de coups prévus 

X1,X2,Y1,Y2 coordonnées du domaine dans lequel peut se trouver le 
joueur 

P1 ordonnée du premier poteau 

P2 ordonnée du second poteau 

CB code ASCII du caractère représentant le ballon 

G1,G2 codes ASCII des deux caractères représentant le goal 
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J1 


J2 


J3 


G1$,G2$ 


X,Y 


DY 


Y1 


XJ,YJ 
SC 
IC 


code ASCII du caractère représentant la moitié supérieure 
du joueur 


code ASCII du caractère représentant la moitié inférieure du 
joueur en position de repos 


code ASCII du caractère représentant la moitié inférieure du 
joueur lorsqu'il shoote dans le ballon 


chaînes de caractères représentant le goal (compte-tenu de 
sa couleur différente de la couleur d'encre du reste de 
l'écran) 


coordonnées du ballon 


indique la direction de déplacement du ballon. Sa valeur 
représente le déplacement vertical correspondant à un 
déplacement horizontal de deux unités 


ordonnée de l'intersection de la trajectoire du ballon avec la 
ligne des buts 


coordonnées du joueur 
score (nombre de ballons interceptés) 
numéro du coup courant 


Variables auxiliaires 


| J AM XX DL 
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7 


Reconstitution 


1. Le jeu 


Un crime vient d'être commis. La victime a été coupée en morceaux ! Et le 
pire, c'est que vous êtes chargé de la reconstitution. De la reconstitution 
des circonstances du crime, pensez-vous ! Vous n'y êtes pas... il s'agit de la 
reconstitution de la victime... 


Dure affaire, pensez-vous. En fait nous jouons sur les mots puisque la 
victime n'est autre qu’un mot qui va se présenter à vous avant qu'une 
explosion n'en disperse les lettres sur l'écran. Votre mission consiste à les 
ramasser le plus vite possible et dans le bon ordre. 


Vous ramassez les lettres grâce à une ‘’boule” que vous promenez sur 
l'écran à l’aide des quatre touches fléchées. Au début de la partie, le 
programme vous laisse examiner à loisir l'état de la situation: position des 
lettres, de la boule, meilleur chemin à suivre. Quand vous pensez être prêt, 
vous appuyez sur une touche du clavier. A partir de là, dès que vous aurez 
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mis votre boule en mouvement à l'aide de l’une des quatre flèches, plus 
rien ne pourra l'arrêter. 


Notez bien que pour votre boule, l'écran est ‘sphérique’. Autrement dit, 
si la boule disparaît à gauche, elle réapparaît aussitôt à droite au même 
niveau. De même, si elle disparaît en haut, elle réapparaît en bas de l'écran, 
au-dessus des trois lignes servant à l'affichage d'informations. 


Au fur et à mesure que vous ramassez les lettres, vous voyez s'inscrire, en 
bas de l'écran, en rouge, le mot partiellement reconstitué. Le programme 
affiche en permanence le temps écoulé. 


Si vous gagnez, vous voyez apparaître, en clignotant, le mot ‘ GAGNE‘ et 
votre temps moyen (par lettre) ainsi que le meilleur score. Si vous perdez, 
vous ne verrez que le mot PERDU”. 





Vue de l'écran pendant le déroulement du jeu 
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2. Le programme 


100 REM ####m##### RECONSTITUTION #44 dede dt 
110 GOSUB 9000 

120 REPEAT 

130 : GOSUB 8000: NL=i 

135 s FOR NLsei TO L 

140 REM 

150 « IF PEEK(768)<)176 THEN DNa#PEEK(733)-135 


160 : IF DN>0 AND DN<S3 THEN DL=DN 

170 s XN=K+(DL=1)-(DL=2)1 YN=Y+(DLæ4)-(DLe3) 

180 1 IF XN>X2 THEN XN=X1 

190 s IF XNÇXI THEN XN=X2 

200 s IF YN>Y2 THEN YN=Yi 

210 « IF YNÇY1 THEN YN=Y2 

220 : T=T+is PLOT 3,26,STR#(T) 

225 : IF DL=0 THEN 140 

230 : SX=SCRN(XN,YN) 

240 s PLOT X,Y,32s3 X=XN: Ya=YNs PLOT X,Y,CB 

242 1 IF SX=232 THEN 140 

250 « IF CHR#(SX)<>MID$(MO$,NL,1) THEN 360 

270  PLOT 11,25,CHR$(12)+LEFT#(MO$,NL) 

280 s NEXT NL 

300 « PING: PLOT 3,24,12: PLOT 4,24,"GAGNE" 

310 « TM=INT(T/L): PLOT 12,24,"TEMPS MOYEN" 

320 s PLOT 28,24,S8TR#$(TM) 

330 : PLOT 12,25,"MEILLEUR TEMPS : 

340 : PLOT 28,25,S8TR$(MT) 

350 s IF TMCMT OR MT=0 THEN MT=TM: GOTO 370 

360 s ZAPs PLOT 3,24,121 PLOT 4,24,"PERDU" 
Ù 


370 : PLOT 16,26,12: PLOT 17,26,"rejouez vous (O/N)" 
380 « GET R$: GET R$ 

400 UNTIL R#$<>"0" 

410 END 

8000 REM ---- 6P INITIALISATION D'UNE PARTIE ---------- 
8010 T=0 

8060 K=i+INT(RND(1)#NM) 

8068 MO$=MD#(K) 

8080 CLS 

8090 PLOT 4,10,12: PLOT 5,10,M0$ 

8100 WAIT 200: EXPLODE 

8110 CLS 

8120 LeLEN(MO$) 

8130 FOR Ii TO L+i 

8140 s X=KX1+INT(RND(1)#(X2-X1+1)) 

8150 : Y=Y1+INT(RND(1)#(Y2-Y1+1)) 
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8160 : IF SCRN(X,Y)<>32 THEN 8140 

8170 « IF IéL+i THEN PLOT X,Y,MID#(MO$,1,1) 

81680 : IF I=L+i THEN PLOT X,Y,CB 

8190 NEXT I! 

8200 DL=0 

8210 PLOT 3,25,12: PLOT 4,25,"pour commencer, tapez une touche" 
8220 GET R$ 

8230 PLOT 2,25,BL$# 

8240 PLOT 3,25,"TEMPS" 

8250 RETURN 


9000 REM ---- SP INITIALISATION DU JEU ----------------- 
9010 PA=0: IN=31 I2=i1 PAPER PA: INK IN 
9020 MT=0 


9025 Xim3s X2=381 YViz0s Y2=23 

9030 CB=64: AM=46080+B+CB 

9035 DATA 12,30,63,63,63,63,30,12 

9040 FOR I1=0 TO 7 

9050 « READ XX: POKE AM+I,XX 

9060 NEXT I 

9070 BL$a="" 

9080 FOR I=1 TO 36: BL#=BL#$+" "3 NEXT I 

9090 DATA 9 

9100 DATA HARMONIEUSEMENT ,MEGALOMANIE, SCIENTIFIQUE 
9110 DATA RICHISSIME ,CACOPHONIE , DRAMATIQUE 

9120 DATA PLANIFICATION,DEMOCRATISATION,RADICALISATION 
9130 READ NM 

9140 DIM MO$(NM) 

9150 FOR I=i TO NM 

9160 s READ MO$(I) 

9170 NEXT I! 

9180 POKE #26A,10 

9190 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du fond 


Remplacez, en 9010, la valeur O par un nombre de votre choix (entre 1 et 
7). 
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2. Pour modifier la couleur de la boule et des lettres 


Remplacez, en 9010, la valeur 3 par un nombre de votre choix (entre O et 
7). Évitez d'utiliser la même couleur que pour le fond car, alors, lettres et 
boule deviendraient ‘invisibles. 


3. Pour jouer sur un domaine plus petit 


Agissez sur la ligne 9025 en augmentant les valeurs de X1 et Y1 et en 
diminuant celles de X2 et Y2. Essayez, par exemple: 


9025 X1-10: X2=30: Y1=5: Y2=20 


4. Pour ajouter de nouveaux mots ou pour modifier les mots 
proposés 


Il vous faut savoir que les instructions “DATA” des lignes 9090 à 9120 
fournissent : 


— le nombre total de mots (ici 9) 


— la liste de ces mots. Chaque instruction peut contenir un nombre quel- 
conque de mots; ceux-ci doivent simplement être séparés par des 
virgules. 


Notez bien que vous pouvez placer, non seulement des mots ayant un sens, 
mais éventuellement n'importe quelles suites de caractères (lettres, 
chiffres..). Cela peut rendre le jeu quelque peu plus compliqué. 


5. Pour utiliser une poignée de jeu 


Chargez le programme ‘ MANETTE 1” comme décrit en annexe. Branchez 
la poignée du côté droit et remplacez les instructions 150,160,170 par: 


150 : CePEEK(#400)s IF C<>191 THEN DLe=C 


160 3 XN=X+((DL AND 1)=0)-((DL AND 2)=0) 
170 & YN=Y+((DL AND 16)=0)-((DL AND 8)=0) 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 

— Poignées de jeu (facultatives). 


b) Le programme principal (100-410) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 400 répètent les instructions 130 à 380 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 


130 appelle le sous-programme d'initialisation d'une partie. 
135 et 280 répètent, pour chaque lettre du mot choisi, les instructions 
140 à 270 qui correspondent au ramassage d'une lettre: 


140-160 déterminent, dans DL, le nouveau déplacement de la 
boule (codé de 1 à 4), en fonction de l’ancien déplacement ou de la 
touche enfoncée. 


170-210 déterminent les nouvelles coordonnées de la boule. 
220 actualise le temps. 
225 est utile pour le début de partie (la boule est alors immobile). 


230-250 déplacent la boule, examinent le contenu de l'emplace- 
ment où elle arrive. 


270 affiche la lettre rencontrée, s'il s'agit de la bonne. 


300-350 cas où le mot a été entièrement reconstitué. On affiche le 
mot ‘’GAGNE”, le temps moyen et le meilleur temps que l'on 
actualise ensuite. 


360 cas où une erreur de lettre a été commise pendant la reconstitu- 
tion. On affiche le mot “PERDU”. 


370-380 vous demandent si vous souhaitez rejouer. 
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c) Le sous-programme d'initialisation du jeu (9000-9190) 


9010 fixe les couleurs de fond et d'encre. 

9020 initialise le meilleur temps. 

9025 fixe les limites du domaine de jeu. 

9030-9060 fabriquent le caractère graphique représentant la boule. 


9070-9080 préparent une chaîne de 36 caractères ‘blanc’ utilisée pour 
l'effacement. 


9090-9170 remplissent, grâce aux DATA des lignes 9100 à 9120, le 
tableau MO$ des mots parmi lesquels se fera le tirage au hasard. 


9180 supprime le bip du clavier et le curseur d'écran. 


d) Le sous-programme d'initialisation d’une partie (8000-8250) 


8010 initialise le compteur de temps. 


8060-8090 choisissent un mot au hasard (dans MO$), l'affichent à l'écran 
pendant deux secondes. 


8100-8110 font retentir une explosion et effacent l'écran. 


8120-8190 affichent chaque lettre du mot et la boule en un emplacement 
quelconque de l'écran. 


8200 initialise le déplacement de la boule. 


8210-8240 attendent que vous tapiez sur une touche. 


5. Liste des variables 


PA couleur de fond 

IN couleur d'encre employée pour les lettres et la boule 

12 couleur d'encre employée pour le message ‘pour 
commencer...” 
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MT 
X1,X2,Y1,Y2 
CB 

BL$ 


NM 


MOS(NM) 


T 
MO$ 
L 

DL 


NL 
X,Y 


XN,YN 
SX 


TM 


meilleur temps 
coordonnées du domaine de jeu 
code ASCII du caractère représentant la boule 


chaîne de 36 caractères ‘’blanc”’ servant à l'effacement de 
message 


nombre total de mots parmi lesquels on en choisira un au 
hasard 


tableau contenant les mots parmi lesquels on en tirera un au 
hasard 


compteur de temps écoulé 

mot tiré au hasard pour la partie en cours 
longueur de ce mot 

déplacement courant de la boule 

0: boule immobile (seulement en début de partie) 


1: gauche 


N 


: droite 


(es) 


: bas 


ES 


: haut 


numéro de la prochaine lettre à ramasser 


coordonnées courantes de la boule (sauf dans le sous- 
programme 8000) 


prochain emplacement de la boule 


code du caractère situé sur le prochain emplacement de la 
boule 


temps moyen (par lettre) 


Variables auxiliaires 


AM 1 XX 


K R$ 


X et YŸ (dans le sous-programme 8000) 
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8 


Phosphore 


1. Le jeu 


Le but de ce jeu de mémoire consiste à retenir des suites de lettres les plus 
longues possibles. Dix essais vous sont proposés. Pour chacun d'entre eux, 
le programme commence par vous montrer pendant un court instant une 
première lettre choisie au hasard. || vous demande ensuite quelle était la 
lettre affichée. Si votre réponse est correcte, le programme vous gratifie 
d'un petit compliment et vous montre à nouveau cette lettre suivie d'une 
seconde. Cela se poursuit ainsi avec trois lettres, puis quatre. jusqu'à ce 
que vous vous trompiez. Vous marquez alors un nombre de points égal au 
nombre de lettres que vous avez réussi à retenir. 


Le programme affiche en permanence le numéro de l'essai que vous êtes 
entrain de jouer, le nombre de lettres que vous avez déjà mémorisées pour 
l'essai en cours, votre score et le meilleur score. 


52 


Chaque lettre proposée est accompagnée d'un son (qui reste le même pour 


une 


lettre donnée) qui peut faciliter la mémorisation. 


REMARQUE: Bien attendre que le programme vous pose la question: 
"quelles étaient les lettres proposées” avant de commencer à taper votre 
réponse. 


2. Le programme 


100 
110 
120 
130 
140 
150 
160 
170 
175 
180 
185 
190 
200 
210 
215 
220 
230 
240 
250 
6000 
6010 
6020 
6030 
6500 
8510 
6520 
6530 
6540 
6550 
7000 
7010 
7020 
7030 


REM ##* PHOSPHORE *#+# 

GOSUB 9000 

FOR CC=1 TO NC 

1 XA=CC: XD=XF (1): GOSUB 6000 

4 LE$="" 

ë GOSUB 8000 

: GOSUB 7000 

3 IF OK=1 THEN 150 

: IF CC=NC THEN 200 

1 PLOT 1,26,20: PLOT 2,26,3 

t PLOT 3,26,"tapez sur une touche pour continuer" 
1 R$=KEY$: IF R$="" THEN 190 

NEXT CC 

IF SC>MS THEN MS=6C 

6C=0 

XA=MB: XD=XF(4): GOSUB 6000 

CLS: PLOT 5,12,"voulez vous rejouer (0/N)" 
GET R$: IF R$="0" THEN 120 

END 


REM .., SP AFFICHAGE VALEUR NUMERIQUE .....,.., 
CH$=STR$(XA)+" " : GOSUB 6500 

CH$=" " : GOSUB 6500 

RETURN 

REM ... SP DEPOS CHAINE CARAC EN MEM GRAPH .,,,,,,.,,, 
LE=LEN(CH$#) 

FOR KK=1 TO LE 


1 POKE XD+KK-1,ASC(MID$#(CH$,KK,1)) 

NEXT KK 

RETURN 

REM ...6P LECTURE DE LA REPONSE ...,.,,.,..,.,.,, 
CLS: PAPER 6: INK 4 

NLeLEN(LES#) 

FOR I=1 TO 4: PRINT: NEXT I! 
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7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7115 
7120 
7130 
7140 
7150 
7200 
7210 
7215 
7220 
7230 
7240 
7245 
7250 
7500 
7510 
7520 
7525 
7530 
7540 
75350 
7560 
7570 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8500 
8510 
8520 
8530 
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IF Nlsi THEN PRINT "quelle etait la lettre?" 
IF NL>1 THEN PRINT "quelles etaient les "i;ëNL;" lettres?" 
PRINT 

FOR I=1 TO NL 

4 R$=KEY$: IF R$="" THEN 7080 

1 PRINT R$#; 

1 IF R$COMID#(LES$,1,1) THEN 7200 

NEXT I 

PRINT: PRINT: PRINT: WAIT 50 

PRINT R$(INT(RND(1)#NR+1)) 

OK=1i 

WAIT 100 

RETURN 

PRINT : PRINT: PRINT N$(RND(1)#xNN+1) 

ZAP: WAIT 50 : PRINT 

PRINT "la bonne reponse etait :" 

GOSUB 8500 

GOSUB 7500 

OK=0 

WAIT 150 

RETURN 

REM .,.. SP MISE À JOUR ET AFFICHAGE DU SCORE ....,,, 
PaLEN(LES#$)-1 

PLOT 2,15,"vous marquez": PLOT 14,15,1 PLOT 15,15,STR$#(P) 
PLOT 18,15,4: PLOT 19,15,"points" 

WAIT 30 

SC=S5C+P 

XA=SC: XD=XF(3): GOSUB 6000 

WAIT 50 

RETURN 

REM ... SP AFFICHAGE DES LETTRES ,...... ie 
CLS: PAPER b: INK 4 

PLOT 10,10,"REGARDEZ" 

WAIT 150:CLS 

IN=ENCINT(RND(1)#NE+1)) 
PA=PACINT(RND(1)#NP+1)) 

PAPER PA: INK IN 

C=65+INT(RND(1)#26) 

LE$=LE$+CHRS$ (C) 

XA=LEN(LE#$): XD=XF(2): GOSUB 6000 

GOSUB 8500 

RETURN 

REM .,.. SP AFFICHAGE SONORE DES LETTRES ..,,,,.,,,,, 
PLAY 1,0,0,0 

FOR I=i TO LEN(LES#) 

1 CH=MID$S(LES$,1,1) 


8540 
8550 
8560 
8570 
8380 
8590 
8600 
9000 
9008 
9010 
9020 
9040 
9050 
9060 
9070 
9075 
9080 
9090 
9100 
9110 
9120 
9130 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 


1 S=éb#(ASC(C#)-40) 

t SOUND 1,5,6 

1 PLOT I+1,12,C$ 

WAIT 50 

NEXT I 

PLAY 0,0,0,0 « WAIT 100 

RETURN 

REM ,,, SP INITIALISATIONS ...,,,,.,,,,,,, 

NC=10: AD=48000 

PRINT CHR$#(17)3 

FOR I=i TO 39: POKE AD+I,32: NEXT I 

DIM C#$#(4), XD(4), XF(4), IN(4) 

XD(1)=AD+1: C$(1)="COUP" 5 INCL)=2: XF(1)=XD(1)+5 
XD(2)=AD+10:C#$#(2)="LETTRES": IN(2)=6: KXF(2)=XD(2)+8 
XD(3)=AD+22:C$(3)="6C 1" 4 IN(3)=3: XF(S)eXD(3)+3 
XD(4)=AD+30: C$(4)="M-SC": IN(4)=3: XF(4)=XD(4)+4 
PS=17: POKE AD,PS 

FOR I=1 TO 4 

t CH$=CHR#(IN(I))+C#$(1) 

1 XD=XD(I) 

: GOSUB 6500 

NEXT I 

DATA 3,2,3,6 

READ NP: DIM PA(NP) 

FOR I=1 TO NP: READ PA(I): NEXT I 

DATA 3,1,4,5 

READ NE: DIM EN(NE) 

FOR I=1 TO NE: READ EN(I): NEXT I 

DATA 9 

DATA OK,OUI,EXACT,BIEN,JUSTE,CORRECT,BRAVO,PARFAIT, VRAI 
READ NR: DIM R$(NR) 

FOR I=1 TO NR: READ R#(I): NEXT I 

DATA 5 

DATA NON,FAUX,INEXACT, INCORRECT, ERREUR 


READ NN: DIM N#$(NN) 
FOR I=1 TO NN: READ N#(I): NEXT I 
RETURN 
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3. Si vous souhaïitez personnaliser ce programme 


1. Pour modifier le temps”‘qui s'écoule entre l'affichage de deux 
lettres successives 


Remplacez, en 8570, le nombre 50 par la valeur de votre choix (exprimée 
en dizaines de ms). 


2. Pour modifier le temps d'attente à la fin de la présentation d'une 
suite de lettres 


Remplacez, en 8590, le nombre 100 par la valeur de votre choix. 


3. Pour supprimer le message ‘ REGARDEZ” qui apparaît pendant 
1,55, 


Supprimez les instructions 8020,8030. 


4. Pour modifier le nombre d'essais proposés 


Remplacez, en 9008, la valeur 10 par celle de votre choix. 


5. Pour modifier les couleurs employées pour la présentation des 
lettres, sachez que: 


— l'instruction DATA de la ligne 9160 contient le nombre de couleurs de 
fond (ici 3), suivi des codes de ces couleurs (ici 2, 3 et 6). 


— l'instruction DATA de la ligne 9190 contient le nombre de couleurs 
d'encre (ici 3) suivi des codes de ces couleurs (ici 1, 4 et 5). 


REMARQUE: Évitez de placer deux codes de couleurs identiques dans 
chacune de ces instructions car, de temps en temps, les lettres proposées 
seraient invisibles. 


6. Pour obtenir des suites de chiffres à la place des suites de lettres 


Remplacez la ligne 8070 par: 
8070 C—48+INT(RND(1) * 10) 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Affichage ligne supérieure. 

— Configuration clavier/écran. 

— Écriture directe en mémoire d'écran. 


b) Le programme principal (100-250) 


110 appelle le sous-programme dl'initialisation du jeu (en 9000). 


120-200 proposent les dix essais. Pour chaque essai: 
130 affiche le numéro du coup. 
140 initialise la suite de lettres proposée. 


150-170 ajoutent une lettre à la suite proposée (sous-programme 
8000) et lisent votre réponse (sous-programme 7000) jusqu'à ce que 
celle-ci soit fausse. 


175-190 vous permettent de ‘’souffler'”” entre deux essais en vous 
demandant de frapper une touche lorsque vous êtes prêt à pour- 
suivre. L'instruction 175 évite que cette question ne soit posée à la 
fin du dernier essai. 


210-220 actualisent et affichent le meilleur score et ré-initialisent le score. 


230-240 vous demandent si vous désirez faire une nouvelle partie. 


c) Le sous-programme d'initialisation du jeu (9000-9300) 


9008 fixe le nombre d'essais d'une partie et l'adresse de début de la ligne 
supérieure. 


9010 supprime le curseur d'écran. 


9020 efface la ligne supérieure de l'écran (celle où apparaît le mot 
"CAPS”". 


9040-9075 déterminent les emplacements et les différents textes que l'on 
souhaite voir figurer en ligne supérieure, ainsi que leur couleur. 


9080 fixe la couleur de fond de la ligne supérieure. 
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9090-9130 affichent les textes voulus en ligne supérieure. 


9160-9210 déterminent les différentes couleurs de fond et d'encre qui 
seront utilisées lors de la présentation des suites de lettres. 


9220-9290 fixent les différents messages qui seront formulés par le 
programme, après votre proposition. 


d) Le sous-programme de préparation d'une suite de lettres 
(8000-8110) 

8010-8030 affichent le message "REGARDEZ" pendant 1,55. 

8040-8060 choisissent une couleur de fond et une couleur d'encre. 


8070-8080 choisissent une lettre au hasard et l’ajoutent à la suite déjà 
proposée. 


8090 affiche, en ligne supérieure, le nombre de lettres proposées. 


8100 appelle le sous-programme d'affichage des lettres. 


e) Le sous-programme d'affichage d'une suite de lettres 
(8500-8600) 


8510-8580 affichent chacune des lettres de la suite, en émettant un son 
(dont la fréquence dépend de la lettre), et en attendant une demi- 
seconde entre chaque lettre. 


8590-8600 suppriment le son et attendent une seconde. 


f) Le sous-programme de lecture de la réponse du joueur (7000- 
7250) 
7000-7060 vous demandent quelles étaient les lettres proposées. 


7070-7110 lisent votre réponse, lettre par lettre, en la comparant avec la 
suite proposée et en s'arrêtant dès qu'une erreur est rencontrée. 


7115-7150 exécutées en cas de réponse correcte: impriment un petit 
message de compliments. 


7200-7250 exécutées en cas de réponse incorrecte : impriment un petit 
message d'erreur, émettent un ‘’zap”, affichent (en musique) la 
réponse exacte et comptabilisent vos points (sous-programme 7500). 
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g) Sous-programmes d'affichage en ligne supérieure (6000-6500) 


Le sous-programme 6500 affiche le contenu de la chaîne CH$, à partir de 
la colonne de rang XD de la ligne supérieure. 


Le sous-programme 6000 affiche la valeur contenue dans XA, à partir de la 
colonne de rang XD de la ligne supérieure. 


5. Liste des variables 


NC 
AD 


PS 

C$(4) 
XD(4) 
XF(4) 


IN(4) 
NP 


PA(NP) 


NE 


EN(NE) 


NR 


RS$(NR) 
NN 


nombre d'essais proposés 


adresse mémoire correspondant au début de la ligne supérieure 
de l'écran 


couleur de fond employée pour la ligne supérieure 
tableau contenant les textes inscrits en ligne supérieure 
tableau contenant les emplacements de ces textes (dans la ligne) 


tableau contenant les emplacements des valeurs correspondant à 
ces textes 


couleur d'encre utilisée pour chacun de ces textes 


nombre de couleurs différentes employées pour le fond lors de la 
présentation des lettres 


tableau contenant les valeurs correspondant à ces différentes 
couleurs 


nombre de couleurs différentes employées pour l'écriture des 
lettres, lors de leur présentation 


tableau contenant les valeurs correspondant à ces différentes 
couleurs 


nombre de messages différents utilisés pour encourager le joueur 
lorsqu'il a trouvé la bonne suite de lettres 


tableau contenant ces différents messages 


nombre de messages différents utilisés en cas de mauvaise 
réponse 


NS(NN) tableau contenant ces différents messages 


59 


CC 
LES 
IN 
PA 
C 
NL 
P 
SC 
OK 


MS 


numéro de l'essai courant 

chaîne contenant la suite de lettres proposées 

couleur d'encre (courante) utilisée pour l'affichage des lettres 
couleur de papier utilisée lors de l'affichage des lettres 

code ASCII de la dernière lettre ajoutée à la suite proposée 
nombre de lettres proposées 

nombre de points marqués à la fin d'un essai 

score (nombre total de points) 


prend la valeur 1 quand la réponse du joueur est correcte, O dans 
le cas contraire 


meilleur score 


Variables auxiliaires 


XD XA 
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| R$ CH$ LE KK 


9 


Les allumettes suédoises 


1. Le jeu 


Nous vous proposons ici une version simplifiée du célèbre jeu, connu 
également sous le nom de “ Marienbad””’. Ce programme vous donnera une 
bonne idée des dessins que l'on peut réaliser avec l'ATMOS, sans même 
utiliser le mode haute résolution graphique (HIRES). 


Le jeu proposé se joue à deux. lci, vous jouez contre l'ordinateur (ou plutôt 
contre le programme). Au départ, vous êtes en présence de 36 allumettes. 
Chaque joueur, à tour de rôle, choisit d'enlever un nombre d'allumettes 
compris entre 1 et 7. Celui qui est obligé d'enlever la dernière allumette a 
perdu. 


Le programme commence par dessiner les 36 allumettes puis choisit au 
hasard celui qui jouera en premier. Quand c'est au programme de jouer, il 
vous dit: ‘’j'enlève x allumettes”. Vous voyez ensuite les allumettes 
concernées clignoter puis disparaître en musique (chaque allumette égrène 
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une note de la gamme). Quand c'est à vous de jouer, vous voyez apparaître 
la question ‘combien d'allumettes retirez-vous ? Vous répondez en tapant 
sur le chiffre souhaité. Notez que toute touche ne correspondant pas à un 
nombre compris entre 1 et 7 est purement et simplement ignorée. 


Le programme affiche en permanence le nombre d'allumettes restant 
(RESTE), le numéro de la partie que vous êtes entrain de jouer ainsi que le 
nombre de parties gagnées par vous et par lui. (Voir photo 2 hors texte: 
Vue de l'écran pendant le déroulement du jeu). 


2. Le programme 


100 REM ###wæwttu# LES ALLUMETTES SUEDOISES #########4 
110 GOSUB 9000 

120 REPEAT 

130 : GOSUB 8000 

140 : REPEAT 


130 s IF JO=1 THEN GOSUB 5000 ELSE GOSUB 4000 
160 1: GOSUB 3000 

170 5 NaN-P 

180 à PLOT 3,2,S8TR#(N)+" " 

190 5 JO=-J0 


200 : UNTIL N<=1 

210 s IF N=i AND JO=1 THEN GOSUB 2000 ELSE GOSUB 2500 
220 : GOSUB 8500 

230 : JD=-JD 

240 UNTIL R$<>"0" 

250 END 

2000 REM .,. SP JOUEUR GAGNANT 

2010 PJ=PJ+i 

2020 PLOT 18,2,STR$(PJ) 

2030 RETURN 

2500 REM .., SP ORDINATEUR GAGNANT ,.,.,,4ssuouus 
2510 PO=PO+1 

2320 PLOT 31,2,S8TR$#(P0) 

2530 RETURN 
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3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3400 
35300 
3510 
3520 
3530 
3560 
3570 
3580 
3590 


REM .,, GP EFFACEMENT P ALLUMETTES ,.,,.,,.,,,,, 
RD=1: KD=N-P+1 

IF N-P>218 THEN RD=2: KD=KD-18 
RFels KF=N 

IF N #18 THEN RF=2: KFeKF-18 
YD=10#(RD-1)+5 

X=2*KD 

FOR Y=YD TO VYD+7 

n PLOT X,Y,12 

NEXT Y 

IF RD®=RF THEN 3140 

FOR Y=15 TO 22 

1 PLOT 2,Y,12 

NEXT Y 

WAIT 200 

B6=is KN=01 OC=3 

IF RDE=RF THEN 3300 

FOR X=2*KD TO 37 

t FOR Y=5 TO 12 

4 PLOT X,Y,32 

s NEXT Y 

1 GOSUB 3500 

NEXT X 

FOR X=2 TO 2#KF+1 

1 FOR Y=15 TO 22 

1 PLOT X,Y,32 

4 NEXT Y 

1 GOSUB 3500 

NEXT X 

GOTO 3400 

FOR X=2#KD TO 2#KF+1 

1 FOR Y=YD TO YD+7 

1 PLOT X,Y,32 

s NEXT Ÿ 

: GOSUB 3500 

NEXT X 

RETURN 

REM .., SP EMISSION NOTE LORS EFFACEMENT .,.,..,, 
BS=-BS 

IF BG=i THEN KNeKN+1 ELGE 3590 
MUSIC 1,0C,ND(KN),0 

PLAY 1,0,1,500 

MAIT 20 

IF KN=7 THEN KN=0: OC=0C+1 
RETURN 
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4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
3000 
3010 
5020 
5030 
3032 
5034 
5035 
5040 
5050 
5060 
5070 
5080 
3090 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7200 


REM ..,. SP LECTURE CHOIX DU JOUEUR .,.,.,,,,,,,,, 
PLOT 2,25,"Combien d'allumettes retirez vous?" 
R$=KEY$: IF R$="" THEN 4020 
PeASC(R$)-48 

IF P>0 AND P<=PM THEN 4080 

PLOT 2,26,'"entre 1 et" 

PLOT 14,26,S8TR$ (PM) 

GOTO 4020 

PLOT 37,25,R$ 

WAIT 50 

PLOT 2,26,BL$ 

RETURN 

REM .., GP CHOIX ORDINATEUR NB ALLUMETTES ...... 
Q=INTIN/(PM+1)) 

ReN-Q+#(PM+1) 

PæR-i1 IF PC=0 THEN P=P+PM+i 

IF P>PM THEN P=INT(RND(1)#PM+1) 

IF N(=PM+1 THEN PeN-1 

PLOT 2,25,BL$ 

PLOT 2,25,"J'enleve" 

PLOT 11,25,STR$#(P) 

IF Pei THEN PLOT 14,25,"allumette" 
IF P>1 THEN PLOT 14,25,"allumettes" 
WAIT 200 

RETURN 

REM .,., SP DESSIN DES ALLUMETTES .,,,,,,,,,,,,,, 
ND=183 IF NXC18 THEN ND=NX 

FOR X=3 TO 2#ND+1 STEP 2 

1 PLOT X,5,C1 

1 PLOT X,6,02 

1 FOR Y=7 TO 12 

1  PLOT X,V,CT 

1 NEXT Y 

NEXT X 

ND=NX-ND 

IF ND<=0 THEN 7200 

FOR X=3 TO 2+ND+1 STEP 2 

t PLOT X,15,C1 

1 PLOT X,16,C2 

4 FOR Y=17 TO 22 

# PLOT X,Y,CT 

4 NEXT Y 

NEXT X 

RETURN 


8000 
8010 
8020 
8030 
8035 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8130 
8500 
8505 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
9000 
9010 
9020 
9030 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9255 
9260 
9270 


REM ... SP INITIALISATION D'UNE PARTIE soso 
N=eNX: NP=NP+i 

PLOT 9,2,STRS#(NP): PLOT 9,2," " 

PLOT 3,2,STR$#(N)+" "x PLOT 3,2," " 

GOSUB 7000 

IF JD=1 THEN PLOT 2,24,"je joue le premier" 

IF JD=-1 THEN PLOT 2,24,"vous jouez le premier" 
J0=JD 

WAIT 100 

PLOT 2,26,"pour commencer, tapez sur une touche' 
R$=KEY$: IF R$="" THEN 8090 

PLOT 1,24,BL$# 

PLOT 1,26,BL$# 

RETURN 

REM ... SP FIN DE PARTIE ..sgossoonseonecscuseuse: 
WAIT 200 

FOR Y=5 TO 15 

4 PLOT 2,Y,32 

NEXT Y 

PLOT 2,25,"Voulez vous rejouer (O/N)?" 

R$=KEY$: IF R$="" THEN 8550 

PLOT 1,25,BL$# 

RETURN 

REM ... SP INITIALISATIONS ....sossouesoussss 
Pi=3s Lili: P2=br IS=i: IT=3: P3=25: 13=7 

NK=36: PM=7: NP=0: PO=0: PJ=0 

CLS: PAPER P2: INK IT 

AM=48040 

FOR I=0 TO 3 

3 PLOT 0,1,P1+16 

à PLOT 1,1,11 

NEXT I! 

FOR I1=24 TO 26 

: PLOT 0,1,P3+16 

4 PLOT 1,1,13 

NEXT I 

FOR 125 TO 6 

4 PLOT 1,1,16 

NEXT I 

FOR 1215 TO 16 

à PLOT 1,1,IS 

NEXT I 

PLOT 2,1,"RESTE PARTIE VOTRE SCORE MON SCORE‘ 
CT=64: Ci=95: C2=296 

DATA 30,30,30,30,30,30,30,30 

C=CT: GOSUB 9500 
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9280 DATA 0,0,0,0,12,30,63,63 

9290 C=Ci: GOSUB 9500 

9300 DATA 63,63,63,63,643,30,30,30 

9310 C=C2: GOSUB 9500 

9320 IF NX>36 THEN NX=36 

9330 JD=1: IF RND(1)>0,5 THEN JD=-1 

9340 BL$=""1 FOR I=i TO 36: BL$=BL$+" M": NEXT I! 
9350 DATA 1,3,5,6,8,10,12 

9360 DIM NO(7) 

9370 FOR I=1 TO 7 

9380 : READ NO(I) 

9390 NEXT I 

9395 POKE #26A,10 

9400 RETURN 

9500 REM ... SP INIT GRAPHIQUES .,.,.,,,,.,,,,,, uses 
9510 AM=46080+8%C 

9520 FOR I=0 TO 7 

9530 : READ XX: POKE AM+I,XX 

9540 NEXT I 

9550 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour changer la couleur de la zone principale où sont dessinées 
les allumettes 


Remplacez, en 9010, la valeur 6 (dans P2 — 6) par un nombre de votre 
choix, compris entre O et 7 (mais différent de 1 et de 3). 

2. Pour modifier les couleurs en général 

Reportez-vous à la liste des variables et voyez le rôle de: P1,11, P2,IS, IT, 
P3, 13. Modifiez la ligne 9010 en fonction de vos desiderata. 

3. Pour modifier le nombre total d'allumettes 

Remplacez, en 9020, la valeur 36 par un nombre de votre choix ne dépas- 


sant pas 36. 
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4. Pour modifier le nombre maximum d'’allumettes que l’on peut 
supprimer en une fois 


Remplacez, en 9020, la valeur 7 par un nombre de votre choix, compris 
entre 1 et 9. 


4. Description du programme 


a) Techniques utilisées décrites en annexe 


— Création de caractères graphiques. 
— Configuration clavier/écran. 


b) Le programme principal 


110 appelle le sous-programme d'initialisation du jeu. 

120 et 240 répètent les instructions 130 à 230 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne désirez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 


140 et 200 répètent le jeu d'un coup (par vous ou par le programme) 
jusqu'à ce qu'il ne reste plus qu'une allumette. 


150 permet le choix du nombre d'allumettes à retirer, soit par vous 
(sous-programme 4000), soit par l'ordinateur (sous-programme 
5000). Le joueur est indiqué par la variable JO (1 : ordinateur; —1: 
vous). 


160 appelle le sous-programme qui fait ‘disparaître les allu- 
mettes concernées. 


170-180 actualisent le nombre d'allumettes restantes. 
190 change de joueur. 
210 analyse le résultat de la partie et appelle, suivant le cas, l'un des 
sous-programmes ‘joueur gagnant” ou ‘ordinateur gagnant”. 
220 appelle le sous-programme de fin de partie. 
230 change le joueur qui doit commencer la partie. 
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c) Le sous-programme d'initialisation du jeu (9000-9400) 


9010 fixe les différentes couleurs intervenant sur l'écran. 


9020 fixe le nombre d'allumettes, la prise maximum autorisée et initialise 
les compteurs. 


9030-9240 donnent les couleurs voulues aux différentes zones de l'écran. 
Les couleurs principales sont attribuées par PAPER et IN à l'ensemble 
de l'écran. Les autres couleurs sont déterminées par l'écriture directe 
(POKE) d'attributs en mémoire d'écran. 


9250 affiche les titres de la zone supérieure. 


9255-9310 fabriquent les caractères graphiques servant à représenter la 
tige et la tête des allumettes. 


9330 choisit, au hasard, le joueur qui commencera la première partie. 


9340-9390 placent dans le tableau NO les codes (employés par MUSIC) 
des notes de la gamme. 


d) Le sous-programme d'initialisation d'une partie (8000-8130) 

8010-8030 initialisent le nombre total d'allumettes et actualisent le 
numéro de partie. 

8035 appelle le sous-programme de dessin des allumettes. 


8040-8110 écrivent un message précisant qui joue en premier, initialisent 
le numéro du joueur courant et attendent que vous tapiez sur une 
touche. 


e) Le sous-programme de dessin des allumettes (7000-7200) 


7010-7080 dessinent les allumettes de la rangée supérieure (dix-huit au 
maximum). 


7090-7170 dessinent, s'il y a lieu, les allumettes de la rangée inférieure 
(lorsque le nombre total d'allumettes est supérieur à dix-huit). 


f) Le sous-programme de choix du joueur (4000-4110) 


4010-4030 vous demandent combien d’allumettes vous souhaitez enlever 
et lisent votre réponse. 
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4040 vérifie que votre réponse est correcte. 


4050-4070 vous précisent les valeurs autorisées lorsque votre réponse est 
incorrecte. 


4080-4100 affichent la réponse lue puis effacent la question, après un 
court instant. 


g) Le sous-programme de choix de l'ordinateur (5000-5090) 


5010-5034 déterminent le nombre d'allumettes à enlever. 
5035-5080 affichent ce nombre. 


h) Le sous-programme d'effacement de ‘’’P'' allumettes (3000- 
3400) 


P contient le nombre d'allumettes à effacer. 
3010-3060 déterminent les emplacements des allumettes à effacer. 
3070-3130 font clignoter pendant 2 secondes les allumettes à effacer. 


3150 initialise le processus d'effacement. 


3160 examine si les allumettes à effacer sont ou non dans la même 
rangée. 


3170-3350 effacent les allumettes en utilisant le sous-programme 3500 
pour émettre une note différente pour chaque allumette effacée: 


3170-3280 correspondent au cas où les allumettes à effacer sont 
situées dans deux rangées différentes. 


3300-3350 correspondent au cas où elles sont situées dans une 
même rangée. 


REMARQUE: Par souci de simplification, ce sous-programme traite de la 


même manière une ‘’colonne” contenant une allumette qu'une colonne 
séparant deux allumettes. 


i) Le sous-programme d'émission d’une note (3500-3590) 
Il est appelé pour chaque ‘’colonne” effacée. L'indicateur BS permet de 


n'émettre une note que dans le cas où l'on a effectivement effacé une 
allumette. 
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j) Les sous-programmes joueur gagnant (2000-2030) et ordinateur 
gagnant (2500-2530) 


Ils actualisent le nombre de parties gagnées. 


k) Le sous-programme de fin de partie (8500-8570) 


8505-8530 effacent la dernière allumette, après un temps d'attente. 


8540-8560 vous demandent si vous voulez rejouer. 


5. Liste des variables 


p1 
11 
P2 


C2 
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couleur de fond de la zone supérieure 
couleur d'encre employée dans la zone supérieure 


couleur de fond de la zone principale (où sont dessinées les 
allumettes) 


couleur de la tête des allumettes 

couleur de la tige des allumettes 

couleur de fond de la zone inférieure 

couleur d'encre employée dans la zone inférieure 

nombre total d'allumettes 

nombre maximum d'allumettes que l'on peut retirer en une fois 
nombre de parties jouées 

nombre de parties gagnées par l'ordinateur 

nombre de parties gagnées par le joueur 

adresse mémoire du début de l'écran 


code ASCII du caractère utilisé pour représenter la tige des 
allumettes 


code ASCII du caractère représentant la partie supérieure de la 
tête des allumettes 


code ASCII du caractère représentant la partie inférieure de la tête 
des allumettes 


JD 
BL$ 


NO(7) 


N 
JO 
ND 
X,Y 
P 
BS 


OC 
KN 


RD 
KD 
RF 
KF 


joueur commençant la partie: (1: ordinateur; —1: joueur) 


chaîne de 38 caractères ‘blanc’ employée pour effacer des 
messages 


tableau contenant les numéros (employés par l'instruction 
MUSIC) des sept notes de la gamme (1 pour DO, 3 pour RE, 5 
pour MI, 6 pour FA, etc...) 


nombre d'allumettes restantes 

joueur courant (1: ordinateur; — 1: joueur) 

nombre d'allumettes à dessiner dans une rangée 

coordonnées courantes d'un emplacement écran 

nombre d'allumettes à enlever (choix du joueur ou de l'ordinateur) 


indicateur employé dans le sous-programme d'émission d'une 
note. Quand il vaut +1, une note doit être émise. 


octave de la note émise 


pointeur dans le tableau NO. NO(KN) donne le code de la note à 
émettre. 


rangée (1 ou 2) contenant la première allumette à effacer 
numéro, dans la rangée, de la première allumette à effacer 
rangée contenant la dernière allumette à effacer 

numéro, dans la rangée, de la dernière allumette à effacer. 


Variables auxiliaires 


R$ YD 


C AM XX Q R 
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10 
MASTER MIND 


1. Le jeu 


Il s’agit là d'un grand classique des jeux de réflexion. Si vous en connaissez 
déjà les règles, vous retrouverez un univers familier. Par rapport au jeu 
manuel vous rencontrerez essentiellement deux différences : 


e Le nombre de positions peut atteindre 6 tandis que le nombre de 
couleurs peut atteindre 9. 


e Manuellement, vous preniez un pion pour le déposer dans un trou du 
plateau de jeu. lci, vous sélectionnez la couleur de votre pion grâce à un 
curseur que vous déplacez à l'aide des touches - et +. Cette façon de 
procéder évite la sempiternelle question ‘entrez les couleurs choisies” 
qui oblige toujours à coder les couleurs (chiffres, lettres.….). Ici, on choi- 
sit naturellement sa couleur en la désignant. 


Si vous n'avez jamais pratiqué ce jeu, vous allez pouvoir vous y exercer 
tranquillement sans risquer d'être l'objet de commentaires désobligeants 
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des plus entraînés. Votre compagnon ordinateur ne marquera aucune 
impatience. Et quand bien même vous ne parviendriez pas à trouver en 
22 coups une simple combinaison de 2 couleurs sur 2 positions, il se 
contentera simplement de vous montrer la solution, sans commentaires. 


a) Le but du jeu 


Il consiste à découvrir une combinaison de couleurs, tirée en secret par le 
programme. Pour celà, vous formulez des propositions de combinaison. 
Pour chacune de ces combinaisons, le programme vous renseigne sur: 


— le nombre de couleurs exactes, situées en bonne position, 


— le nombre de couleurs exactes, mais situées en mauvaise position. 


b) Déroulement d'une partie 


Au départ, le programme vous fait choisir le nombre de positions (2 à 6) et 
le nombre de couleurs (2 à 9). Vous pouvez ainsi choisir vous-même la 
difficulté du jeu. Ce choix vous sera rappelé, tout au long de la partie, en 
bas à gauche de l'écran. Par exemple 4P signifie 4 positions et 9C signifie 
9 couleurs. En même temps, les couleurs avec lesquelles vous pourrez 
jouer (compte tenu de votre choix) apparaissent en bas à droite sous 
formes de ronds de couleur. Jusqu'à 5 couleurs, il s'agit de ronds “pleins”, 
au delà, vous retrouvez les mêmes couleurs sous forme de “cercles”. 


Le programme choisit alors, en secret, une combinaison de couleurs (les 
répétitions sont possibles). Pour deviner cette combinaison inconnue, vous 
faites une proposition en choisissant parmi les couleurs affichées. Pour 
celà, vous amenez la flèche noire sous la couleur voulue grâce aux deux 
touches de déplacement horizontal. Vous sélectionnez la couleur en 
appuyant sur la barre d'espace (un son vous confirme que votre couleur a 
été enregistrée). Un pion de cette couleur apparaît alors sur l'écran (en 
haut) à l'emplacement qui était signalé par une croix. 


Cette croix apparait maintenant un peu plus loin pour vous montrer que le 
programme attend que vous choisissiez une seconde couleur. Celà se pour- 
suit jusqu'à ce que vous ayez choisi autant de couleurs qu'il y a de positions 
prévues. 


L'ordinateur vous fournit alors sa réponse sous forme de petits pions 
accompagnés de musique. Le rythme d'apparition de ces pions est irrégu- 
lier, ce qui donne l'impression que l'ordinateur “réfléchit” avant de 
répondre. La signification des pions est la suivante: 
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e une couleur à sa place pour chaque petit pion noir cerclé de blanc: 
e une bonne couleur, non à sa place, pour chaque petit pion blanc. 


Si, par malchance (ou pèut-être par chancel), votre proposition ne 
comporte aucune bonne couleur, vous entendrez simplement ”’zap”. 


Le programme vous demandera ensuite de formuler une autre proposition 
(à moins que vous ne soyez tombé juste au premier coup !). Le Jeu se pour- 
suivra ainsi jusqu'à ce que vous trouviez la bonne combinaison ou que vous 
dépassiez le nombre maximum (22) de propositions. Dans ce dernier cas, le 
programme vous fournira sa combinaison cachée et vous pourrez observer 
tout à loisir l'écran rempli de pions de couleurs et éventuellement analyser 
votre jeu (peut-être, même, vérifier que le programme n'a pas menti ! eh! 
on ne sait jamais...). 


REMARQUE: || peut vous arriver de vous tromper pendant que vous faites 
une proposition. Dans ce cas, vous pouvez annuler la proposition en cours 
en appuyant deux fois de suite sur la touche “return” (vous verrez les pions 
déjà proposés s'effacer). (Voir photo 3 hors texte : Vue de l'écran pendant le 
déroulement du jeu). 


2. Le programme 


100 REM *########% MASTER MIND ##4#444406446 4 
150 GOSUB 9000 


160 REPEAT 

170 : GOSUB 8000 
180 : CP=0 

190 1 REPEAT 

200 CP=CP+1 


Û 
Û 
210 : GOSUB 5000 
220 : GOSUB 4000 
Û 
Û 
! 


230 UNTIL PE=NP OR CP>aNX 
240 IF PEsNP THEN GOSUB 2000 ELSE GOSUB 3000 
250 PLOT XD+1,26,"rejouez vous (D/N)" 


260 : GET R$:s GET R$ 
270 UNTIL R$<>"0" 
290 END 


74 


2000 
2010 
2020 
2030 
2040 
2045 
2050 
2060 
2070 
3000 
3008 
3020 
3030 
3035 
3040 
3050 
3060 
3065 
3070 
3080 
3085 
3090 
3100 
3120 
4000 
4010 
4020 
4030 
4040 
4050 
4055 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4200 


REM ----- SP GAGNE -------" 
FOR Y=24 TO 261 FOR X=XD TO 38 

1 PLOT X,Y,32 

NEXT Xs NEXT Y 

PLOT XD,24,"VOUS AVEZ TROUVE EN" 

PLOT XD,25,CHR$#(12)+CHR$(3)+STR$(CP)+" COUPS" 

PLOT XD+2,25," " 

WAIT 300 

RETURN 

REM ----- SP PERDU --------——— 
FOR Y=24 TO 26: FOR X=XD TO 38 

1 PLOT X,Y,32 

NEXT X: NEXT Y 

ZAP 

PLOT XD-1,24,12: PLOT XD,24,"LA COMBINAISON ETAIT" 
X=XD: Y=25 

FOR Iz=i TO NP 

t CA=PI 

1 ICaTI(I)s IF 1C>5 THEN CAmP2: IC=IC-5 

à PLOT X,Y,CO(IC): PLOT X+1,Y,CA 

1 X=X+2 

NEXT I 

WAIT 200 

RETURN 

REM ----- SP ANALYSE DE LA COMBINAISON PROPOSEE ------- 
FOR I=1 TO NP: TP(I)=TI(I)1 NEXT I 

PE=0 

FOR I=i TO NP 

1 IF TP(I)=PR(I) THEN PE=PE+i1 TP(I)=01 PR(I)=-1 
NEXT I 

CEz=0 

FOR I=1 TO NP 

1 FOR J=1 TO NP 

1 IF TP(J)=PR(I) THEN CE=CE+i: TP(J)=#0: GOTO 4100 
t NEXT J 

NEXT I 

PLOT X+1,Y,71 X=X+2 

IF PE=0 THEN 4200 

FOR I=1 TO PE 

1 WAIT TM#RND(1) 

t MUSIC 1,02,N2,0: PLAY 1,0,1,200 

t PLOT X,Y,RI 

45 XeX+1 

NEXT I 

IF CE=0 THEN 4300 
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4210 
4220 
4230 
4240 
4250 
4260 
4300 
4310 
4320 
5000 
5010 
5015 
5020 
5030 
5040 
3050 
5060 
5070 
5080 
5090 
5100 
5110 
5112 
5115 
5117 
5120 
5130 
5140 
5145 
5150 
5200 
5210 
5220 
3230 
5240 
5250 
3260 
5270 
3275 
5300 
5310 


FOR I=1 TO CE 

1 WAIT TM#2#RND (1) 

1 MUSIC 1,03,N3,01 PLAY 1,0,1,200 

à PLOT X,Y,R2 

à X=k+1 

NEXT ! 

MAIT 200 

IF PE=0 AND CE=0 THEN ZAP 

RETURN 

REM ----- SP LECTURE DE LA COMBINAISON PROPOSEE 
PLOT XD,24,121 PLOT XD+1,24,"faites votre choix" 
PLOT 8,26,S8TR$#(CP)a PLOT 8,26," " 

IP=XD 

PLOT IP,26,01 PLOT IP+1,26,94 

FOR I=1 TO NP 

1 PLOT 12,26,8TR#(I)4 PLOT 12,26," " 

à X=2#1-11 IF CP>11 THEN X=X+19 

à V=2#CP-11 IF CP>11 THEN Y=Y-22 
à PLOT X-1,Y,72 PLOT X,Y,43 
1 CL=PEEK(#208) 
1 IF CL=#38 THEN 5090 

1 IF CL=#84 THEN 5200 

à IF CLCD#AF THEN 5120 

1 PLOT X-1,Y," "y PLOT 1P,26," " 
: GOTO 5040 

à PLOT IP,26," " 

1 IPaIP-2# (CLaAC) # (IPDXD)+2# (CLæHBC) #(IPCXF) 
1 PLOT IP,26,01 PLOT IP+1,26,94 

1 WAIT 20 

1 6OTO 5090 

à K=(IP-XD)/2+1 

à PR(I)=K 

à MUSIC 1,01,N1,0: PLAY 1,0,1,400 

à CA=Pir IC=K 

1 IF IC)S THEN IC=IC-5: CA=P2 

à PLOT X-1,Y,CO(IC)s PLOT X,Y,CA 

à WAIT 40 

NEXT I 

PLOT IP,26," " 

PLOT 18,24," 

RETURN 


8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8085 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9130 
9160 
9170 


REM ----- SP INITIALISATION D'UNE PARTIE ---------- 
CLS: PAPER 61 INK4 

PLOT 2,10,"COMBIEN DE POSITIONS (2 À 6)?" 

GET R$1 NP=VAL(R$#): IF NP<2 OR NP>6 THEN 8030 
PLOT 32,10,R$ 

PLOT 2,15,"COMBIEN DE COULEURS (2 À 9)?" 

GET R$i NC=VAL(R$)1 IF NCC2 OR NC>10 THEN 8060 
PLOT 32,15,R$ 

WAIT 300: CLS: PAPER PAr INK IN 

XF=XD+2% (NC-1) 

ID=XD1 CA=P1 

FOR I=1 TO NC 

1 ICmlr IF IC)S THEN IC=IC-51 CAmP2 

1 PLOT ID,25,C0(1C) 

1 PLOT ID+1,25,CA 

1 ID=1D+2 

NEXT ! 

FOR I=0 TO 2 

1 PLOT 0,24+1,PB+16 

1 PLOT 6,24+1,PC+16 

NEXT I 

PLOT XD-1,25,16 

PLOT 2,25,S8TR# (NP) PLOT 2,25," "sr PLOT 4,25,"P" 
PLOT 2,26,STR# (NC): PLOT 2,26," "3 PLOT 4,26,"C" 
PLOT 7,25,"COUP POSIT" 

FOR I=1 TO NP 

à TICI)=INT (RND(1) #NC+1) 

NEXT ! 

RETURN 

REM ----- SP INITIALISATIONS DU JEU -------------" 
PAnO1 IN=41 PBa3i PCmé 

DIM CO(S), TI(9) ,PR(9),TP(9) 

NX=221 TM=1001 XD=19 

Oi=3s Nimir O2=31 N2=81 OSm=4 N3=i 

POKE #264,10 

DATA 1,3,5,7,4 

FOR I=i TO Sr READ CO(I)s NEXT ! 

Pimb4r P221231 Ri=9S1 R2=96 

DATA 12,30,63,63,63,63,30,12 

C=Pir GOSUB 9500 

DATA 12,30,51,51,51,51,30,12 

C=P21 GOSUB 9500 

DATA 0,0,12,18,18,12,0,0 

C=Ri1 GOSUB 9500 

DATA 0,0,12,30,30,12,0,0 

C=R21 GOSUB 9500 

RETURN 
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9500 REM ----- 6P INIT CARAC GRAPHIQUES --------" 
9510 AM=46080+B#C 

9520 FOR I=0 TO 7 

9530 : READ XX: POKE AM+I,XX 

9540 NEXT I 

9550 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier les couleurs des pions 

Remplacez les cinq nombres de l'instruction 9060 par cinq valeurs de votre 
choix. Veillez à ce qu'elles soient toutes différentes: 

Par exemple: 


9060 DATA 7,1,2,4,5 


vous fournira, dans cet ordre, les couleurs : blanc, rouge, vert, bleu et violet. 


2. Pour modifier les sons 


Remplacez les valeurs de l'instruction 9040 par des nombres de votre 
choix, sachant que 01, O2 et O3 correspondent à des numéros d'octave 
(donc de O à 6) et N1, N2, N3 à des numéros de note (donc de 1 à 12). 
D'autre part: 


O1,N1 correspondent à la note émise lors de la sélection d'une couleur. 
O2,N2 correspondent à la note émise pour chaque ‘bonne position”. 
O3,N3 correspondent à la note émise pour chaque ‘’bonne couleur”. 


3. Pour avoir un moyen de connaître la combinaison secrète, sans 
devoir finir la partie 


Ajoutez la ligne. 


5111 IF CL= # AD THEN CP=NX :RETURN 
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et complétez 210 comme ceci: 


210 GOSUB 5000: IF CP > =NX THEN 230 


Il suffira alors que vous pressiez la touche DEL" pendant la phase de 
sélection des couleurs pour que la partie se termine en faisant apparaître la 
combinaison cachée. Notez bien qu'il ne vous sera plus possible de pour- 
suivre cette partie ainsi interrompue. 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 


b) Le programme principal (100-299) 


150 appelle le sous programme d'initialisation du jeu. 

160 et 270 répètent les instructions 170 à 240 (déroulement d'une partie) 
jusqu'à ce que vous disiez que vous ne souhaitez plus rejouer: 
170 appelle le sous-programme d'initialisation d'une partie. 

180 initialise le compteur de coups joués. 
190 et 230 répètent les instructions 200 à 220 (jeu d'un coup) 


jusqu'à ce que vous ayez gagné ou que le nombre de coups joués 
atteigne 22: 


200 incrémente le compteur de coups. 


210 appelle le sous-programme qui “lit” la combinaison que vous 
proposez. 


220 appelle le sous-programme qui analyse cette proposition. 


240 appelle, suivant le cas, le sous-programme “gagné” ou le sous- 
programme ‘ perdu”. 


250-260 vous demandent si vous voulez rejouer. 
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c) Le sous-programme d'initialisation du jeu (9000-9170) 


9010 fixe les diverses couleurs intervenant dans le programme. 
9020 réserve les tableaux. 


9030-9040 fixent le nombre maximum de coups, les sons employés au 
cours de la partie... (voir variables). 


9050 supprime le bip du clavier et le curseur d'écran. 


9060-9070 détermine (à partir du DATA 9060) les cinq couleurs servant à 
représenter les pions. Notez qu'on obtiendra 9 “couleurs” effectives 
en utilisant deux formes de pions. 


9080-9160 fabriquent les caractères graphiques: pion plein, pion cerclé, 
petit pion cerclé, petit pion plein. 


d) Le sous-programme d'initialisation d’une partie (8000-8270) 


8010-8080 vous font choisir le nombre de positions et le nombre de 
couleurs (le dialogue se fait en bleu sur fond cyan). 


8085-8150 dessinent, en bas à droite, les différents pions correspondants 
au nombre de couleurs choisies. 


8160-8190 fixent les couleurs de fond des trois lignes du bas de l'écran. 


8200-8230 affichent en bas d'écran, le nombre de positions et le nombre 
de couleurs. 


8240-8260 tire au hasard la combinaison qu'il vous faudra deviner. Notez 
que chaque ‘couleur’ du jeu est représentée par un entier compris 
entre 1 et 9. 


e) Le sous programme de lecture de la combinaison proposée 
(5000-5310) 


5010-5030 affichent le message clignotant ‘faites votre choix”, le 
numéro du coup et affichent la flèche de sélection de couleurs en 
position initiale. 

5040 à 5270 lisent les couleurs proposées. Pour chaque couleur: 


5050-5080 affichent le numéro du pion que vous êtes en train de 
choisir et font apparaître +" à l'emplacement correspondant. 


5090-5260 examinent le clavier: 
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5110 détecte la frappe de la barre d'espace. 
5112 détecte la frappe de la touche ‘’return”. 
5115-5117: cas où ‘’return” a été frappée. 


5120-5150: cas d'une touche autre que espace où return (cas 
usuel) : on calcule la nouvelle position de la flèche de sélection et on 
l'affiche. 

5200-5260: cas ou espace a été frappé : on range le numéro de la 
couleur proposée dans le tableau PR ; on émet un son montrant que 
la proposition a été enregistrée et on affiche le pion ainsi choisi à 
l'emplacement correspondant. 


5275-5300 effacent la flèche et le message. 


f) Le sous-programme d'analyse de la combinaison proposée 
(4000-4320) 


4010 recopie dans le tableau de travail TP, la combinaison tirée par l'ordi- 
nateur. Celà permet d'effectuer certaines modifications dans TP (lors 
de l'analyse de la proposition) sans altérer le tableau TI. 


4020-4050 comptent le nombre (PE) de couleurs bien placées. 


4055-4100 comptent le nombre (CE) de couleurs présentes dans la combi- 
naison cachée, mais mal placées. Notez bien qu'il a fallu éviter de 
prendre en considération les couleurs déjà comptées dans PE. 


4110-4180 affichent, s'il y a lieu, en musique un nombre de petits pions 
cerclés égal au nombre de couleurs à leur place. 


4200-4260 affichent, s'il y a lieu, en musique, un nombre de pions 
blancs égal au nombre de bonnes couleurs mal placées. 


4310 émet un ‘’zap” si vous n'avez aucune bonne couleur dans votre 
proposition. 
g) Le sous-programme ‘’ gagné’ (2000-2070) 


Il affiche, en bas, à droite le message ‘vous avez trouvé en” suivi du 
nombre de coups. 


h) Le sous-programme ‘’’perdu'' (3000-3120) 


Après effacement de la partie appropriée de l'écran, il vous affiche la 
combinaison choisie. 
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5. Liste des variables 


PA 
IN 

PB 
PC 


CO(5) 


TI(9) 
PR(9) 
TP(9) 
NX 
TM 


XD 


01,N1 


O2,N2 


0O3,N3 


P1 
P2 
R1 


R2 
NP 
NC 
XF 


ID,IP 
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couleur du fond (ici noir). 
couleur d'encre utilisée pour les trois lignes inférieures. 
couleur de fond de la partie gauche des trois lignes inférieures. 


couleur de fond des trois lignes inférieures (à l'exception de la 
partie gauche). 


tableau contenant les couleurs utilisées pour les pions (on obtient 
jusqu'à 9 ‘couleurs’ en jouant sur l'aspect des pions). 


tableau contenant la combinaison tirée par le programme. 
tableau contenant la proposition du joueur. 

tableau de travail employé dans l'analyse de la proposition. 
nombre maximum de coups. 


temps d'attente maximum utilisé lors de la réponse du programme 
à une proposition. 


abscisse de début de l'emplacement où s'affichent les couleurs 
possibles (en bas à droite). 


note (octave + numéro dans l'octave) de la note jouée lorsque 
vous sélectionnez une couleur. 


note (octave + numéro dans l'octave) de la note jouée en 
accompagnement de chaque petit pion noir cerclé de blanc. 


note (octave + numéro dans l'octave) de la note jouée en 
accompagnement de chaque petit pion blanc. 


code ASCII du caractère représentant un pion “plein”. 
code ASCII du caractère représentant un pion ‘’cerclé”’. 


code ASCII du caractère représentant un petit pion noir cerclé de 
blanc. 


code ASCII du caractère représentant un petit pion blanc. 
nombre de positions choisies pour la partie en cours. 
nombre de couleurs choisies pour la partie en cours. 


abscisse de fin de la zone servant à afficher les différentes couleurs 
en vue de leur sélection. 


indices servant à décrire les positions des différentes couleur de la 
zone de sélection. 


CP 
X,Y 
K 
PE 


CE 


numéro du coup. 

coordonnées du pion courant (pion ‘’ordinaire”’ ou petit pion). 
numéro de la couleur sélectionnée. 

nombre de couleurs bien placées dans la proposition courante 
(tableau PR). 

nombre de bonnes couleurs, mal placées, dans la proposition 
courante (tableau PR). 


Variables auxiliaires 


C R$ 


| CA IC 
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11 


Gobe mouches 


1. Le jeu 


Imaginez que vous soyez une petite araignée obligée de chasser les 
mouches pour se nourrir. 


Heureusement celles-ci pullulent dans votre environnement et vous n'avez 
que l'embarras du choix. Toutefois vous ne pouvez vous déplacer que le 
long d'un fil (de votre toile). 


Vous vous déplacez le long du haut de l'écran grâce aux touches fléchées : 


“"e"et"-" vous font avancer à vitesse lente dans la direction indiquée. 


"|" et‘ }"" vous font avancer, dans les mêmes directions, à une vitesse triple de 
la précédente. 


Pour avaler une mouche, il vous suffit de l'intercepter dans son vol (qui se 
déroule toujours verticalement). Chaque mouche rapporte un nombre de 
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points qui dépend de sa couleur (rouge 1 ; vert 2 ; jaune 3; bleu 4: violet 5; 
bleu ciel 6; blanc 7). 


La partie s'achève au bout d'un temps déterminé à l'avance. Bonne chance 


et. 


. bon appétit. 





Vue de l'écran pendant le déroulement du programme 


2. Le Programme 


100 
110 
120 
130 
135 
140 
130 
160 
170 
172 


REM ##w#wuuuaut GOBE MOUCHES 4444444646 dede GE GE QE GE UE DE DE DEEE HE 
GOSUB 9000 

REPEAT 

: GOSUB 8000 

1 FOR Tei TO TM 

1  Xi=2+374#RND(1): X2=2+37#RND(1) 

1  IMai+RND(1)#7 

1 IF SCRN(X,1)C232 THEN SHOOT:I SC=SC+SCRN(1,25) 

1 IF SCRN(X+1,1)<232 THEN SHOOT: SC=SC+SCRN(1,25) 

1  CuePEEK(#208)1 IF C=#38 THEN 180 


85 


175 
UXCS 
180 
190 
195 
200 
230 
250 
260 
270 
280 
290 
300 
310 
8000 
8010 
8015 
8020 
8030 
9000 
9010 
9015 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9300 
9510 
9520 
9530 
9340 
9350 


7TYJJV 


86 


1  KeX-(CmhAC)#(X>2)+(CmhBC)#(XC37)-3#(Ca#B4)#(K>4) +34 (Cmh9C) # 
5) 

5 PRINT CHR$(10); 

1 PLOT 1,0,F# 
8 PLOT 1,0,IN: PLOT X,0,6$# 

4 PLOT 1,26,IM: PLOT X1,26,M0: PLOT X2,26,M0 
# NEXT 
1 CLS: PLOT 5,10,"SCORE": PLOT 15,10,S8TR$#(SC): PLOT 15,10," " 
4 PLOT 5,12,"M-SCORE": PLOT 15,12,STR$# (MS): PLOT 15,12," " 
1 IF SC>MS THEN MS26C 

4 WAIT 100: PLOT 5,20,"voulez vous rejouer (O/N)" 

1 GET R$: GET R$ 
UNTIL R$<>"0" 
END 

REM ----- 6P INITIALISATION D'UNE PARTIE ---------- 
CLS: SC=0 

FOR I=1 TO 26: PRINT CHR$#(10): NEXT I 

X=15: PLOT X,1,C$ 

RETURN 

REM ----- 6P INITIALISATIONS DU JEU --------... 
PA=0: IN=3: PAPER PA: INK IN 

MO=941 G1=951 G2=961 Fab4 

G$=CHR$ (61) +CHR$ (62) 

TM=400: M6=0 

POKE #26A,10 

DATA 17,10,4,31,4,10,17,17 

C=M0: GOSUB 9500 

DATA 8,36,19,15,3,7,8,48 

C=61: GOSUB 9500 

DATA 4,9,50,60,48,56,4,3 

C=62: GOSUB 9500 

DATA 0,0,0,0,63,0,0,0 

C=F: GOSUB 9500 

F$m""y FOR Ixi TO 38: F#=F$+CHRS#(F): NEXT I 

RETURN 

REM ----- 8P CREATION CARACT GRAPHIQUES ------------ 
AM=46080+8#C 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 


NEIUNN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur de l'araignée et de son fil 


Remplacez la valeur 3 de l'instruction 9010 par un nombre de votre choix, 
compris entre 1 et 7. 


2. Pour que toutes les mouches aient la même couleur 


Remplacez l'instruction 150 par: 
150 IM=n 


où n désigne un nombre compris entre 1 et 7. 
Par exemple: 


150 IM=5 


produira des mouches violettes. 


REMARQUE: dans ce cas (toutes les mouches de la même couleur), chaque 
mouche mangée rapportera alors le même nombre de points. 


3. Pour modifier la durée d'une partie 
Remplacez, en 9030, la valeur 400 par la valeur de votre choix. 
4. Pour que toutes les mouches rapportent le même nombre de 


points 


Modifiez ainsi les instructions 160 et 170. 


160 IF SCRN(X,25) <> 32 THEN SHOOT: SC=SC+1 
170 IF SCRN(X+1,25) <> 32 THEN SHOOT: SC=SC+1 
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4. Description du programme 


a) 


b) 


Techniques utilisées, décrites en annexe 


Hasard. 

Création de caractères graphiques. 
Lecture rapide du clavier. 

Scroll. 

Configuration clavier/écran. 


Le programme principal 


110 appelle le sous-programme dl'initialisation du jeu. 


120 et 300 répètent les instructions 130 et 290 (déroulement d'une partie) 


jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 
135 et 230 répètent 400 fois les instructions 140 à 200: 


140 et 150 calculent les positions de deux nouvelles mouches ainsi 
que leur couleur. 


160 et 170 examinent si l'araignée rencontre une mouche et, le cas 
échéant, augmentent le score du nombre de points correspondants. 


172-175 déterminent la nouvelle position de l'araignée lorsqu'une 
des touches a été pressée. 


180 fait défiler vers le bas l'ensemble de l'écran (scroll). 
190-200 dessinent le fil et l'araignée dans sa nouvelle position. 


250-270 affichent votre score, le meilleur score et actualisent ce 
dernier. 


280-280 vous demandent si vous désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9140) 


9010 fixe les couleurs d'encre et de fond. 


9015 fixe les codes des caractères représentant les mouches, l'araignée et 


le fil. 


9020 fabrique la chaîne de deux caractères représentant l'araignée. 


9030 fixe le temps d'une partie et initialise le meilleur score. 
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9040 supprime le bip du clavier et le curseur d'écran. 


9050-9100 fabriquent les caractères graphiques servant à représenter les 
mouches, l'araignée et son fil. 


d) Le sous-programme d'initialisation d'une partie (8000-8030) 


8010 efface l'écran et initialise le score. 


8015 prépare le défilement d'écran en déplaçant le curseur jusqu'en bas de 
l'écran. 


8020 dessine l'araignée dans sa position initiale. 


5. Liste des variables 


PA 
IN 
MO 
G1 


G2 
F 
G$ 
F$ 
TM 
MS 
SC 
T 

X 
X1,X2 
IM 


couleur du fond (ici: noir). 
couleur d'encre utilisée pour l'araignée et son fil. 
code ASCII du caractère utilisé pour représenter une mouche. 


code ASCII du caractère représentant la partie gauche de 
l'araignée. 


code ASCII du caractère représentant la partie droite de l'araignée. 
code ASCII du caractère utilisé pour représenter le fil. 

chaîne de deux caractères représentant l'araignée. 

chaîne de 38 caractères représentant le fil. 

durée d'une partie (exprimée en nombre de tours de boucles). 
meilleur score. 

score. 

compteur de tours de boucle. 

position de l'araignée sur son fil. 

positions des deux dernières mouches (tirées au hasard). 
couleur d'encre des deux dernières mouches (tirée au hasard). 


Variables auxiliaires 


C SC R$ I (dans le sous-programme 9500). 
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12 
KARTING 


1. Le jeu 


La piste est là, devant vos yeux, avec ses bottes de paille qui en délimitent 
le tracé. Votre bolide ne tarde pas à se présenter, moteur tournant au 
ralenti. Il vous suffit d'y monter et d'essayer de le conduire sur le plus grand 
nombre possible de kilomètres et aussi vite que vous le pouvez. 


Le bolide apparaît en haut à gauche de l'écran. Le programme vous 
demande de signaler que vous êtes prêt en tapant sur une touche quel- 
conque. Votre voiture se met alors en marche, à petite vitesse. À partir de 
cet instant, vous ne pourrez plus l'arrêter et la partie se terminera inexora- 
blement.… dans le décor. 


Vous dirigez votre bolide à l'aide des quatre touches fléchées (ou, le cas 
échéant, avec une poignée de jeu). Vous accélérez à l'aide de la touche 
“return” et vous freinez avec la barre d'espace. Le bruit du moteur vous 
renseignera sur votre vitesse. 
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A la fin de la partie (c'est-à-dire quand vous avez quitté la piste), le 
programme vous indique la distance parcourue et votre temps de parcours. 
Votre score est alors calculé en fonction de ces deux éléments (il est 
proportionnel à la distance et à la vitesse moyenne). Vous pouvez le 
comparer avec le meilleur score déjà réalisé. (Voir photo 4 hors-texte : Vue 
de l'écran pendant le déroulement du jeu). 


2. Le programme 


100 
110 
120 
130 
140 
150 
160 
170 


180 
190 
200 
210 
220 
230 
240 
245 
250 
270 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3065 
3070 
3075 
3080 
3090 


3 
: 
3 
: 
DN=DL 
ï 
: 
: 
1 
Ê 
: 
: 


R 


EM #####UURRUUEE KARTING #4 dede de UE HUE UND DE JE DE HE 


GOSUB 8500: GOSUB 9000 
REPEAT 


3 
U 


GOSUB 8000 

IF PEEK(768)=176 THEN 180 

DN=PEEK(735)-135 

IF DN=6 OR DN=25 THEN GOSUB 5000 

IF DN<1 OR DN>4 OR(DN-DL=1 AND DN<>3)0R(DL-DN=1 AND DL<>3) THEN 


XN=X+(DN=1)-(DN=2): YN=Y+(DN=4)-(DN=3) 

IF SCRNIXN,YN)<>32 THEN GOSUB 3000: GOTO 240 
PLOT X,Y,32% X=XN: Y=YN: DLæDN: PLOT X,Y,CV(DL) 
KMakKM+i1 TaT+4-V 

IF V<3 THEN WAIT 3: IF V<2 THEN WAIT 7 

GOTO 140 

PLOT 19,25,"rejouez vous (DO/N)" 

GET R$: GET R$ 
NTIL R$#<)>"0" 


END 


REM ---- GP SORTIE DE PISTE ------------------- 
EXPLODE 

PLOT 2,24,"KM"1 PLOT 4,24,STR$ (INT (KM) ) 
PLOT 11,24,"TEMPS":PLOT 16,24,STR$#(INT(T)) 
SC=INT(KM#KM/T) 

PLOT 2,25," SCORE": PLOT 11,25,12 

PLOT 12,25,S8TR$ (SC) 

PLOT 2,26,"M-SCORE": PLOT 12,26,STR$# (MS) 
WAIT 300 

IF SC>MS THEN MS28C 

PLOT X,Y,32 

RETURN 
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5000 REM ---- SP CHANGEMENT DE VITESSE --------------- 
5010 VaV+(DN=6b)#(V<3)-(DN=25)#(V>1) 

5020 G0SUB 6000 

5030 RETURN 

6000 REM ---- SP SONDRISATION ----------------…… 
6010 F=10+40#(3-V) 

6015 PLAY 0,1,3,F 

6020 SOUND 4,30,0 

6030 RETURN 

8000 REM ---- SP INITIALISATION D'UNE PARTIE --------- 
8010 KM=0: Tz0 

8020 X=3s Y=2: DN=21 DLeDNe Vi 

8030 PLOT X,Y,CV(2): PING: GOSUB 6000 

8035 FOR I=0 TO 2: PLOT 2,24+I,BL#: NEXT I 

8040 PLOT 2,25,"pour commencer tapez sur une touche" 
8050 GET R$: PLOT 2,25,BL$# 

8070 RETURN 


8500 REM ---- SP TRACE DE LA PISTE ------------------- 
8510 DATA "aaaaaaaaaaaaaaaaaaaaaaaaàaèàaàaaaaaaàaà" 
8520 DATA "à à" 
8530 DATA "à à" 
8540 DATA "à à" 
8550 DATA "à à à à à à à à à à à à à à à à à à à à à à à à à à à à à" 
8560 DATA "à à àäààà à à" 
8570 DATA "à à aà à a" 
8580 DATA "à à à à à" 
8590 DATA "à à äadà à àaaaaàà à a" 
8600 DATA "à à  àaaaàà à àaaaaaà à à" 
8610 DATA "à à  aäaaà à aàäàaàaa à à" 
8620 DATA "à à äaaaà à à à à à à à à à à" 
8630 DATA "à à àà à à à àaaàaà à à" 
8640 DATA "à à aa à aa à à à" 
8650 DATA "à à à à àà à à" 
8660 DATA "à à à àà à à à" 
8670 DATA "à à à àààà à à à" 
8680 DATA "à à à àaaadaà à à à" 
8690 DATA "à à à à à à à à à à à à à à" 
8700 DATA "à à à à à à à à à à à à à" 
8710 DATA "à à à a" 
8720 DATA "à à à àà" 
8730 DATA "à à à aaà" 


8740 DATA "aaaaaaaaaaaaaaaaaaaaaaaaaañaaaañaaaaàà" 
8750 CLS 

8800 FOR I=0 TO 23 

8810 1 READ CH$: PLOT 2,1,CH$ 

8820 NEXT I 

8830 RETURN 
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9000 REM ---- SP INITIALISATION DU JEU ----------------- 
9010 PAz=3: IN=1: PAPER PA: INK IN 

9020 MS=0 

9040 BL$="": FOR I1=1 TO 37: BL$=BL$+" ": NEXT I 
9050 DIM CV(4) 

9060 CP=64: CV(1)=93: CV(2)=94: CV(3)=295: CV(4)=96 
9070 DATA 0,0,30,30,30,30,0,0 

9080 C=CP: GOSUB 9500 

9090 DATA 0,0,17,63,63,63,17,0 

9100 C=CV(1): GOSUB 9500 

9105 DATA 0,0,34,63,63,63,34,0 

9110 C=CV(2): GOSUB 9500 

9113 DATA 0,15,06,06,06,15,06,0 

9120 CaCV(3): GOSUB 9500 

9122 DATA 0,06,15,06,06,06,15,0 

9125 CeCV(4): GOSUB 9500 

9130 POKE #26A,10 

9150 RETURN 

9500 REM ---- 6P INIT CARACTERES GRAPHIQUES ----------- 
9310 AD=46080+8%#C 

9520 FOR I=0 TO 7 

9530  READ XX: POKE AD+I,XX 

9540 NEXT I 

9550 RETURN 


REMARQUE: les caractères ‘’à”’ de la liste correspondent en fait au carac- 
tère @ (c'est ainsi qu'il apparaît sur le clavier et à l'écran). 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du fond (ici jaune) 

Remplacez, en 9010, la valeur 3 par un nombre de votre choix (entre O et 

7). 

2. Pour modifier la couleur des ‘’hottes de paille ”” et de la voiture 
(ici rouges) 


Remplacez, en 9010, la valeur 1 par un nombre de votre choix (entre O et 
7). 
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3. Pour modifier le tracé de la piste 


Il vous suffit de modifier les instructions DATA” des lignes 8510 à 8740 
en tenant compte des remarques suivantes: 


e Chacune de ces 24 instructions représente une ligne de la piste. 


e Chaque instruction contient une chaîne d'au maximum 38 caractères et 
formée uniquement de caractères ‘espace’ et’ @ ‘’. Les espaces maté- 
rialisent la piste tandis que ” @ ”’ correspond aux ‘’bottes de paille”. 


e ||! est absolument indispensable que la piste soit toujours bordée de 
 @ ”. En effet, pour obtenir la vitesse maximum, le programme ne teste 
pas les ”débordements" d'écran; il se contente de vérifier s'il y a ou non 
collision avec une botte de paille. Dans ces conditions, l'absence de 
" @"”" en bord d'écran pourrait entraîner un mauvais fonctionnement du 
programme. 


4. Si le jeu vous paraît trop rapide 


Vous pouvez réduire les vitesses 1 et 2, en modifiant la ligne 220. II vous 
suffit de savoir qu'actuellement : 


— la vitesse 1 correspond à une attente (instruction WAIT) de 10 (3 de 
WAIT 3 + 7 de WAIÏT 7). 


— la vitesse 2 correspond à une attente de 3. 
Ainsi, en remplaçant 220 par: 

220 IF V<3 THEN WAÏITS:IF V<2 THEN WAIT 10 
vous obtiendrez: 
— une attente de 15 (5 + 10) pour la vitesse 1. 


— une attente de 5 pour la vitesse 2. 


5. Pour utiliser une poignée de jeu 


Chargez le programme " MANETTE2”" comme décrit en annexe. Branchez 
la poignée du côté droit. Remplacez les instructions 140 à 180 par: 


150 : DN=PEEK(#400): IF DN=0 THEN DN=DL 
160 XN=X+((DN AND 1)=1)-((DN AND 2)=2) 
170 YN=Y-(C(DN AND 4)=4)+((DN AND 8)=8) 
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(attention, les lignes 140 et 180 disparaissent). 


Enfin, remplacez les lignes 9050 à 9125 par: 


9050 DIM CV(10) 

9060 CP=b4r CV(1)=931 CV(2)=94x CV(3)=01 CV(4)=951 CV(S)=96 
9065 CV(6)=971 CV(7)m01 CV(B)m=9B1 CV(9)m991 CV(10)=100 
9070 DATA 0,0,30,30,30,30,0,0 
9080 C=CP1 GOSUB 9500 

9090 DATA 0,0,17,63,63,63,17,0 
9100 C=CV(1): GOSUB 9500 

9105 DATA 0,0,34,63,63,63,34,0 
9110 C=CV(2): GOSUB 9500 

9115 DATA 0,15,6,6,6,15,6,0 
9117 C=CV(4): GOSUB 9500 

9118 DATA 0,4,6,4,7,28,56,20,0 
9119 C=CV(5): GOSUB 9500 

9120 DATA 0,8,24,61,14,7,10,0 
9121 C=CV(6): GOSUB 9500 

9122 DATA 0,6,15,6,6,6,15,0 
9123 C=CV(8): GOSUB 9500 

9124 DATA 0,20,56,28,47,6,4,0 
9125 C=CV(9): GOSUB 9500 

9126 DATA 0,10,7,14,61,24,8,0 
9127 C=CV(10): GOSUB 9500 


4. Description du programme 


a) Techniques utilisées décrites en annexes 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 

— Poignées de jeu (facultatif). 


b) Le programme principal 


110 appelle les sous-programmes d'initialisation du jeu et de dessin de la 
piste. 
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120 et 250 répètent les instructions 130 à 245 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 
140-230 sont répétées jusqu'à ce que la voiture quitte la piste: 

140-150 examinent le clavier. 


160 appelle le sous-programme de changement de vitesse lorsque 
l'une des touches “return” ou “espace” a été pressée. 


170 détermine le nouveau déplacement DN de la voiture, en tenant 
compte de son sens de marche et éventuellement de la touche 
pressée (flèche). Notez que les demi-tours sont interdits. 


180 détermine la nouvelle position de la voiture. 


190 examine si la voiture sort de la piste. Dans ce cas, le sous- 
programme de sortie de piste est appelé et la partie est 
interrompue. 


200 efface la voiture de sa position actuelle et la dessine dans sa 
nouvelle position, en tenant compte de son sens de marche. 


210 actualise le temps et le kilométrage. 
220 réalise une attente fonction de la vitesse de la voiture. 
240-245 vous demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9150) 


9010 fixent les couleurs du fond et de l'encre. 
9020 initialise le meilleur score. 
9040 prépare une chaîne de 37 caractères blancs. 


9050-9125 fabriquent les caractères graphiques représentant les “bottes 
de paille” et la voiture dans chacune de ses quatre directions de 
déplacement. 


9130-9140 suppriment le bip et le curseur et effacent l'écran. 


d) Le sous-programme de tracé de la piste (8500-8830) 
8800-8820 dessinent la piste en utilisant les instructions DATA 8510 à 


8740. Notez que chaque caractère ‘ @ ” correspond, en fait, à une 
botte de paille. 


96 





1. Païd de nuit 


( tips 


Nan 
do 





2. Les allumettes suédoises 


3. Mastermind 


4. Karting 
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5. Mur de briques 
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6. Embarquement immédiat 





7. Envahisseurs 





8. Dictée musicale 


e) Le sous-programme d'initialisation d’une partie 


8010 initialise les compteurs “temps” et kilomètres”. 


8020 fixe la position initiale de la voiture, son sens de déplacement et sa 
vitesse. 


8030 dessine la voiture dans sa position initiale et fait entendre le bruit de 
son moteur. 


8035-8050 attendent que vous tapiez sur une touche. 


f) Les sous-programmes de changement de vitesse (5000-5030) et 
de sonorisation (6000-6030) 


5010 calcule la nouvelle vitesse de la voiture. 
5020 appelle le sous-programme de sonorisation. 
6010 calcule la fréquence du son correspondant à la vitesse de la voiture. 


6015-6020 émettent le bruit correspondant. 


g) Le sous-programme de sortie de piste (3000-3090) 


3010 fait retentir une explosion. 
3020-3030 affichent la distance parcourue et le temps. 


3040-3075 calculent le score correspondant, l'affichent et actualisent le 
nouveau score. 


3080 efface la voiture. 


5, Liste des variables 


PA couleur du fond. 

IN couleur d'encre utilisée pour les ‘bottes de paille” et pour la 
voiture. 

MS meilleur score. 

BLS$ chaîne de 37 “blancs” utilisée pour effacer des messages sur 
l'écran. 
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CP 


CV(4) 


KM 
T 

X,Y 
DN 


DL 
V 


XN,YN 


SC 
F 


code ASCII du caractère représentant les bottes de paille délimi- 
tant la piste. 


tableau contenant les quatre codes ASCII des quatre caractères 
représentant la voiture dans chacune des quatre directions. 


distance parcourue. 

durée du parcours. 

coordonnées de la voiture. 

code du déplacement à venir de la voiture 

(1: 2:— 3:/; 4:}). 

code de l'ancien déplacement de la voiture (voir DN). 
code de la vitesse de la voiture (1: lent à 3: rapide). 
coordonnées de la prochaine position de la voiture. 
score. 

fréquence du son utilisé pour simuler le bruit du moteur. 


Variables auxiliaires 


C 
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CH$ R$ 


13 
Tir aux ballons 


1. Le jeu 


Venez pour un moment vous distraire à la fête foraine en montrant vos 
talents de tireur. Une myriade de ballons multicolores s'élève devant vos 
yeux. Crevez-en le plus possible avec votre sarbacane. 


La sarbacane apparaît sur le côté droit de l'écran et se déplace verticale- 
ment à l’aide des deux touches ‘” ? ‘’ et ” | ”. Vous tirez une flèche en 
appuyant sur la barre d'espace. Tant qu'elle n’a pas traversé l'écran ou 
crevé un ballon, vous ne pouvez pas en tirer une nouvelle. 


Trois niveaux de jeu vous sont proposés: 


e Niveau 1 : Tous les ballons rapportent le même nombre de points (10). 


99 


e Niveau 2: Le nombre de points dépend de la couleur du ballon : 10 pour 
un rouge, 20 pour un vert, …, 60 pour un cyan (bleu ciel). Ce 
nombre apparaît sur la gauche du ballon. 


e Niveau 3:Les ballons deviennent capricieux: lorsqu'ils sont touchés 
pour la première fois, ils se contentent de diminuer de taille. 
Il vous faut les toucher une seconde fois pour les faire dispa- 
raître et marquer les points correspondants. 


La partie dure un temps déterminé à l'avance. Le programme affiche en 
permanence, en haut de l'écran, votre score et le meilleur score du niveau 
auquel vous jouez. 


HIVEREE 





Vue de l'écran pendant le déroulement du jeu 
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2. Lep 


100 
110 
120 
130 
140 
150 
160 
170 
180 
185 
190 
200 
210 
220 
2990 
3000 
3010 
3020 
3030 
3100 
3110 
3120 
3130 
3990 
4000 
4010 
4020 
4030 
4040 
4990 
5000 
5010 
5030 
5040 
5050 
5100 
5110 
5120 
5130 


rogramme 


REM ######HE#NE#X TIR AUX BALLONS 44644436 HE HE DE HG 
GOSUB 9000 
REPEAT 
: GOSUB 8000 
FOR T=1 TO TM 
GOSUB 3000: GOSUB 4000: GOSUB 3000: GOSUB 5000 
GOSUB 3000: GOSUB 4000: GOSUB 3000 
NEXT T 
IF SC>MS(NV) THEN MS(NV)26C 
WAIT 100 
CLS: PLOT 6,15,"voulez vous rejouer (O/N)" 
: GET R$: GET R$ 
UNTIL R$<>"0" 


END 

REM ---- GP DEPLACEMENT FLECHE -------------- 

IF XB=0 THEN RETURN 

IF GSCRN(XB-2,YB)<>32 THEN 3100 

PLOT XB,YB,32: XB=XB-2:1F XBÇXI THEN XB=0 ELSE PLOT XB,YB,CC 
RETURN 

SHOOT: PLOT XB,YB,32 

IF SCRN(XB-2,YB)=C1 AND NV=3 THEN PLOT XB-2,YB,C2: XB=0:RETURN 
PLOT XB-2,YB,32:SC=SC+10*SCRN(XB-3,YB) 
CH$=STR$(6C) : 1D= 171 GOSUB8S00: XB=0: RETURN 

REM ---- SP DEPLACEMENT SARBACANE ET TIR ---------- 
CLePEEK(#208): IF CL=#38 THEN RETURN 

IF CL=#84 AND XB=0 THEN XB=XF-1: VB=YF: PLOT XB,YB,CB: RETURN 
PLOT XF,YF,CE$: YVF=YF+(CLaehB4)#x(YF<26)-(CL=#9C)# (YF 20) 

PLOT XF,YF,CF#$: RETURN 

RETURN 

REM ---- SP DEPLACEMENT BALLON ------------------ 

IF RND(1)>FB THEN 5100 

X=H(K): IB=H(K+1)5 K=K+2: IF K>NXTHEN Kz=i 

IF NV=1 THEN PTz=10 ELSE PT=10#IB 

PLOT 3,26,STR$(PT)1 CH$=CHR$(IB)+CHR$ (C1) +CHR$ (IN) 

PLOT X,26,CH$ 

PLOT XF,YF,CE#: IF XB<>0 THEN PLOT XB,YB,32 

PRINT CHR$#(10)3u PLOT XF,VYF,CF#1 IF XB=0 THEN RETURN 

IF SCRN(XB,YB)C>32 THEN XB=0 ELSE PLOT XB,YB,CC 

RETURN 
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8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8490 
8300 
8520 
8530 
8540 
9000 
9010 
9020 
9030 
9040 
9050 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9300 
9310 
9320 
9330 
9540 
9550 
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REM ---- 6P INITIALISATION D'UNE PARTIE ---------- 

CLS: PLOT 10,10,"TIR AUX BALLONS" 

PLOT 10,13,"niveau choisi (1 a 3)?" 

GET R$: NV=VAL(R$)1 IF NVCI OR NV>3 THEN BO3O 

CH$= "NIVEAU SCORE M-SCORE "+ ID=2: GOSUB 8500 
CH$=STR$(NV)1 ID=8: GOSUB 8500 

CH$=8TR$ (MS (NV) )5 ID=31: GOSUB 8500 


SC=01 XB=0: YF215: Kz1 

CLS: FOR I=i TO 26: PRINT: NEXT I 

RETURN 

REM ---- GP AFFICHAGE LIGNE SUPERIEURE ------------ 
FOR Izi TO LEN(CH#) 

4 POKE AD+ID+I-1,ASC(MID#(CH$,1,1)) 

NEXT I 

RETURN 

REM ---- SP INITIALISATIONS DU JEU --------------- 
X1=7: 2525 


XF=33: LFmb: KBm01 FB=0,21 TM=300 
Ci=941 C2=95: CF=96: CC=b4 

DIM MS(3) 

IN=31 PAm=O: IS=2: PSmis INK IN: PAPER PA 
AD=#BBB0 

CF$=""s FOR I=i TO LF: CF#=CF#+CHR$(CF)e NEXT I 
CEf=""; FOR I=i TO LF: CE#=CE#+" "y NENT I 

DATA 12,30,63,63,63,63,30,12 

C=Ci: GOSUB 9500 

DATA 0,0,12,30,30,12,0,0 

C=C2: GOSUB 9500 

DATA 0,0,63,63,63,63,0,0 

C=CF: GOSUB 9500 

DATA 0,0,0,0,63,0,0,0 

C=CC1 GOSUB 9500 

POKE AD,P8+16: POKE AD+1,1S 

POKE #26A,10 

NX=1001 DIM HINX)4 Kæ1 
H(K)=X1+2#INT(RND(1)#(X2-X1)/2) 
IB=INT(RND(1)#6)1 IF IB=PA THEN 9220 

H(K+1)=1B1 K=K+21 IF KCNX THEN 9210 

RETURN 

REM ---- GP INITIALISATION CARAC GRAPHIQUES ------ 
AM=46080+B#C 

FOR I=0 TO 7 

1 READ XX POKE AM+I,XX 

NEXT I! 

RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur de la sarbacane et de la flèche 


Remplacez en 9050, la valeur 3 par un nombre de votre choix (entre 1 et 
7). 


2. Pour modifier la durée d'une partie 


Remplacez en 9020, la valeur 300 par un nombre de votre choix (600 
donnera des parties deux fois plus longues, 100 donnera des parties trois 
fois plus courtes). 


3. Pour que les ballons soient plus ou moins nombreux 


Remplacez, en 9020, la valeur 0.2 par un nombre compris entre O et 1 
sachant que: 


0.2 correspond, en moyenne, à un ballon toutes les cinq lignes. 
0.5 à un ballon toutes les deux lignes. 


1 à un ballon sur chaque ligne. 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Scroll. 

— Configuration clavier/écran. 

— Écriture directe en mémoire d'écran. 
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b) Le programme principal (100-220) 


110 appelle le sous-programme-d'initialisation du jeu. 


120 et 210 répètent les instructions 130 à 200 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 


130 appelle le sous-programme d'initialisation d'une partie. 


140 et 170 répètent 300 fois les instructions 150 et 160 qui appel- 
lent les sous-programmes de déplacement de flèche (3000), de 
déplacement de l'ensemble des ballons (5000) et de déplacement 
de la sarbacane (4000). 


180-200 actualisent le meilleur score et, après un court instant, vous 
demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9550) 


9010 détermine le domaine dans lequel évoluent les ballons. 


9020 fixe la position initiale de la sarbacane, sa dimension, la fréquence 
d'apparition d'un ballon et la durée d'une partie. 


9030 fixe les codes des caractères représentant les ballons, la sarbacane et 
la flèche. 


9050 fixe la couleur de fond et celle de la sarbacane et de la flèche. 
9070 fixe l'adresse de début de la ligne supérieure. 


9080-9170 fabriquent les caractères graphiques servant à représenter les 
ballons , la sarbacane et la flèche. 


9180 fixe les couleurs de fond et d'encre de la ligne supérieure. 
9190 supprime le bip du clavier et le curseur de l'écran. 


9200-9230 préparent un tableau de valeurs tirées au hasard qui serviront 
à déterminer la position et la couleur de chaque ballon. 
d) Le sous-programme d'initialisation d'une partie (8000-8090) 


8010-8060 font choisir le niveau, affichent les textes de la ligne supé- 
rieure, le niveau et le meilleur score correspondant. 


8070 initialise le score, la position de la sarbacane. 


8080 initialise le défilement d'écran en plaçant le curseur en bas. 
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e) Le sous-programme de déplacement de la flèche (2990-3130) 

3000 examine si une flèche a été tirée (dans ce cas, XB contient une valeur 
positive). Si c'est le cas: 

3010 examine si la flèche peut être déplacée sans rencontrer un ballon. 

3020-3030 déplacent la flèche lorsque cela est possible. 


3100-3130 correspondent au cas où un ballon est touché: 


3100 fait entendre le bruit du ballon qui crève et efface la flèche de 
son ancienne position. 


3110 examine si l’on est en niveau 3. Dans ce cas, si le ballon est de 
taille normale, il est remplacé par un plus petit. 


3120-3130 effacent le ballon touché, incrémentent le score et affi- 
chent sa nouvelle valeur. 


f) Le sous-programme de déplacement des ballons (4990-5130) 


5000 décide de l'apparition éventuelle d'un nouveau ballon. Le cas 
échéant: 


5010-5050 dessinent le nouveau ballon et affichent le nombre de points 
correspondants. 


5100-5120 effacent la sarbacane et la flèche (si elle existe) avant d'effec- 
tuer un défilement de l'écran vers le haut (scroll), redessinent la 
sarbacane et, éventuellement, la flèche. 


g) Le sous-programme de déplacement de sarbacane et de tir 
(3990-4110) 


4000 examine le clavier. 


4010 place une flèche en position initiale si la barre d'espace a été pressée 
et si aucun tir n'est en cours. 


4020-4030 déplacent la sarbacane s'il y a lieu. 


h) Le sous-programme d'affichage en ligne supérieure (8490- 
8540) 


Il affiche en colonne de numéro ID, le contenu de la chaîne CHS$. 


105 


5. Liste des variables 


X1,X2 


XF,YF 
LF 
XB,YB 


TM 
FB 
C1 
C2 
CF 
CC 
MS(3) 
IN 
PA 
IS 
PS 
AD 
CF$ 
CES 
NX 


NV 
SC 


coordonnées de l'intervalle dans lequel pourront se trouver les 
ballons (ces valeurs doivent impérativement être impaires) 


coordonnées de l'extrémité gauche de la sarbacane 
longueur de la sarbacane 


coordonnées de la flèche. (Si XB = O, aucune flèche n'est présente 
sur l'écran) 


durée d'une partie (exprimée en nombre de tours de boucle) 
probabilité d'apparition d'un ballon sur une nouvelle ligne 

code ASCII du caractère représentant un ballon de taille normale 
code ASCII du caractère représentant un ballon de taille réduite 
code ASCII du caractère représentant la sarbacane 

code ASCII du caractère représentant la flèche 

tableau contenant le meilleur score de chaque niveau 

couleur d'encre employée pour la sarbacane et la flèche 
couleur de fond 

couleur d'encre employée pour la ligne supérieure 

couleur de fond de la ligne supérieure 

adresse mémoire relative au début de la ligne supérieure 
chaîne représentant la sarbacane 

chaîne de caractères blancs servant à effacer la sarbacane 
nombre de valeurs qui seront tirées au hasard avant le début du 
jeu 

pointeur dans le tableau H 

niveau de jeu 

score 


Variables auxiliaires 


C IB 
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R$ CL X IB 1! 


14 
M 


ur de briques 


1. Le jeu 


C'est là un jeu très classique que vous avez certainement déjà rencontré. À 
l'intérieur d'un cadre (ici vert) se trouve un mur de briques (ici violettes). 
Une balle se promène sur l'écran rebondissant sur le cadre ou sur une 
“raquette mobile”. Elle rebondit également sur les briques mais en les 
détruisant du même coup. 


Par rapport aux versions habituelles de ce jeu, nous avons introduit une 
nouveauté : la raquette peut se déplacer à la fois horizontalement et verti- 
calement (dans certaines limites). 


L'objectif est de détruire le maximum de briques dans un minimum de 
temps. Pouvoir rapprocher la raquette du mur vous fera donc gagner du 
temps et par suite améliorer votre score. 
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Chaque balle ratée par la raquette est perdue. Vous disposez de six balles 
en tout. La raquette se déplace à l'aide des quatre touches fléchées ou, le 
cas échéant, de la poignée de jeu. 


Le programme affiche en permanence le nombre de balles restantes et le 
nombre de briques détruites. La partie s'achève, soit quand vous n'avez 
plus de balles, soit (ce qui est plus rare) quand le mur a été entièrement 
détruit. Le programme vous fait alors connaître votre score qui est calculé 
en fonction du nombre de briques détruites et du temps mis pour y parve- 
nir. En même temps, vous pourrez comparer votre résultat avec le meilleur 
score déjà réalisé. (Voir photo 5 hors texte: Vue de l'écran pendant le 
déroulement du jeu). 


2. Le programme 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
2990 
3000 
3010 
3020 
3030 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
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REM ###4#4#4##%#xX% CASSE BRIQUES *##%4%44446 4 


GOSUB 9000 

REPEAT 

: GOSUB 8500: GOSUB 8000: GOSUB 7000 

t REPEAT 

1 GOSUB 40001 GOSUB 5000: Tæ=T+i 

t UNTIL ND>=NB OR NC<=0 

: GOSUB 8700 

UNTIL R$<>"O0" 

END 

REM ---- SP SONORISATION REBOND --------------- 
F=100: IF CX=CM THEN F=500 
IF CX=CR THEN F=200 

PLAY 1,0,0,0: SOUND 1,F,6: WAIT 10 

PLAY 0,0,0,0: RETURN 

REM ---- SP DEPLACEMENT BALLE --------------- 
IF GSCRN(X,Y+DV)<>320RSCRN(X+DX,V) <>320RSCRN(X+DX,Y+DY) C)32THEN4050 
PLOT X,Y,32: X=X+DXe Y=Y+DY 
IF YCYR THEN PLOT X,Y,CBs RETURN 

NC=NC-1: PLOT 11,0,STR$ (NC) 

ZAP: WAIT 100: GOSUB 7000: RETURN 
CISSCRN(X,Y+DY): C2=SCRN(X+DX,Y)s CS=SCRN(X+DX,Y+DY) 
IF Ci=32 THEN 4100 
IF CI=CM THEN PLOT X,Y+DY,32: GOSUB 6000 


4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4990 
5000 
5010 
5020 
35030 
5040 
5050 
5990 
6000 
6010 
6020 
7000 
7005 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
85300 
8510 
8520 


CX=Ci: GOSUB 3000: DY=-DY 

RETURN 

IF C2=32 THEN 4140 

IF C2=CM THEN PLOT X+DX,Y,32: GOSUB 6000 

CX=C2: GOSUB 3000: DX=-DX 

RETURN 

IF C3=CM THEN PLOT KX+DX,Y+DY,32: GOSUB 6000 
CX=C3: GOSUB 3000: DX=-DX: DY=-DY 

IF RND(1)20,.75 THEN DX=-DX 

RETURN 

REM ---- SP DEPLACEMENT RAQUETTE --------------- 
CL=PEEK(#208) 

IF CLle#38 THEN RETURN 

PLOT XR,YR,CES$ 
XR=XR+(CLæ#BC) # (KRÇXM)-(CLeHAC) # (XR2X1) 
YR=YR+(CL=#B4) # (YR<R2) + (CL=#9C) # (VRDRL) # (YR<DY+1) 
PLOT XR,YR,CR$#: RETURN 

REM ---- SP BRIQUE DETRUITE ----------------- 
ND=ND+1 

PLOT 25,0,STR# (ND): PLOT 25,0," " 

RETURN 

REM ---- GP PLACEMENT HASARD BALLE ------------- 
IF NC<=0 THEN RETURN 

X=X1+INT(RND(1)#(X2-X1+1)) 

Y=Y4+2 

PLOT X,Y,CB 

DX=i: IF RND(1)20.5 THEN DX=-1 

DY=i: IF RND(1)20.5 THEN DY=-1 

PLOT XR,YR,CE# 

XR=19-INT(LR/2): YR=R2 


PLOT XR,YR,CR$ 
RETURN 
REM ---- GP DESSIN CADRE ET MUR ------------""- 


FOR KX=X1-1 TO K2+1 

4 PLOT X,Y{-1,CT: PLOT X,Y2+1,CT 
NEXT X 

FOR Y=Y1 TO Y2 

1 PLOT X1-1,Y,CTa PLOT X2+1,V,CT 
NEXT Y 

FOR X=X1 TO X2 

t FOR Y=Y3 TO Y4 


#5  PLOT X,Y,CM 

# NEXT Y 

NEXT X 

RETURN 

REM ---- SP INITIALISATION PARTIE -------------- 
CLS: T=0: ND=01 NC=NX 

PLOT 4,0,"BALLES BRIQUES" 
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8530 PLOT 11,0,STR$ (NC) 

8540 RETURN 

8700 REM ---- GP FIN DE PARTIE --------------..-c- 
8720 SC=100xND*ND/T#NX/(NX-NC) 

8725 SC=INT(SC) 

8730 PLOT 5,12,"SCORE": PLOT 12,12,STR$(S8C) 
8740 PLOT 5,14,"M-SCORE'": PLOT 15,14,STR$(MS) 
8730 IF SC>MS THEN M6=6C 

8760 PLOT 5,17,"Voulez vous rejouer (O/N)" 
8770 GET R$: GET R$ 

8780 RETURN 

9000 REM ---- BP INITIALISATIONS DU JEU ------=--"...… 
9010 MS=0: NX=6 

9020 POKE #26A,10 

9030 PA=Q: IN=2: CLS: PAPER PA INK IN 

9040 Xi=3r K2=37 

9050 Yin3r Y22251 Y3251 YV4=9 

9060 Ri=i4r R2=23: LRa9 

9070 XM=eX2-LR+1 

9080 NBm(X2-Ki1+1)#(V4-Y3+1) 

9085 XR=19-INT(LR/2): YR=R2 

9090 CT=64: CM=95+1281 CB=9b: CR=160 

9100 CE$="" 

9110 FOR I=i TO LR: CE$=CES$+" "y NEXT I 

9120 CR$="" 

9130 FOR Iz1 TO LR: CR$=CR$+CHRS# (CR) NEXT I 
9140 DATA 63,63,41,33,33,41,63,63 

9145 CX=CT: GOSUB 9500 

9150 DATA 63,63,41,33,33,41,63,63 

9160 CX=CM-126: GOSUB 9500 

9170 DATA 0,30,63,63,63,63,30,0 

9180 CXeCB1 GOSUB 9500 

9190 RETURN 

9300 REM ---- SP INIT CARAC GRAPHIQUES ------------ 
9510 AM=46080+8%CX 

9520 FOR I=0 TO 7 

9530 « READ XX: POKE AM+I,XX 

9340 NEXT I 

9550 RETURN 
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3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier le nombre de balles d’une partie 


Remplacez, en 9010, le nombre 6 par la valeur de votre choix. 


2. Pour modifier la taille ou la position du mur 


Il vous suffit de savoir que, en 9050, les valeurs de Y3 (ici 5) et de Y4 (ici 9) 
correspondent aux rangs des lignes d'écran entre lesquelles s'étend le mur. 


Ainsi, par exemple: 


9050 Y1-3: Y2=25: Y3-5: 4-11 








vous fournira un mur commençant toujours à la 5° ligne en partant du haut, 
mais s'étendant jusqu'à la 11° ligne. 


De même: 


9050 Y1=-3: Y2-25: Y3=7: Y4=11 








vous fournira un mur de même étendue que le mur d'origine mais situé plus 
bas sur l'écran. 


Attention : la valeur de Y3 doit toujours être strictement supérieure à celle 
de Y1; celle de Y4 doit toujours être strictement inférieure à celle de R1 
(définie en ligne 9060). 


3. Pour modifier le domaine dans lequel! évolue la raquette 


Il vous suffit de savoir que les valeurs 14 et 23 de la ligne 9060 en fixent 
les limites verticales. 


Par exemple: 


9060 R1-19: R2-23: LR=—9 








vous conduira à un domaine plus restreint. 
Si vous remplacez 9060 par: 
9060 R1—23: R2=23: LR—19 


vous obtiendrez un jeu où la raquette ne peut plus se déplacer verticale- 
ment (vous retrouvez là la version classique du ‘mur de briques”). 
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4. Pour modifier la taille de la raquette 


Remplacez, en 9060, le nombre 9 par la valeur de votre choix. 


5. Pour que la raquette se déplace horizontalement deux fois plus 
vite 
Remplacez 5030 par: 
5030 XR=XR+2+(CL= % BC)x(XR<<XM)—2x(CL= # AC)x(XR > X1) 


6. Pour que la balle se déplace plus vite 


Remplacez 150 par: 
150 : GOSUB 4000: GOSUB 5000: GOSUB 4000: T=-T+1 


7. Pour utiliser une poignée de jeu 


Chargez le programme MANETTE 1 comme décrit en annexe. Branchez la 
poignée du côté droit et remplacez les lignes 5000 à 5040 par: 


3000 CL=PEEK(#400) 

3010 IF CL=191 THEN RETURN 

3020 PLOT KXR,YR,CES$ 

3030 XR=XR+((CL AND 2)=0)#(KXRÇXM)-C(CL AND 1)=0)#(XR>X1) 

5040 YR=YR+((CL AND 8)=0)#(YRÇR2)+((CL AND 16)=0) #(YR>R1)#(YRÇDY+1 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran 

— Poignées de jeu (facultatif). 
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b) Le programme principal (100-190) 


110 appelle le sous-programme dl'initialisation du jeu. 
120 et 180 répètent les instructions 130 à 170 (déroulement d'une partie) 
jusqu'à ce que vous disiez que vous ne voulez plus rejouer: 


130 prépare une partie en appelant successivement les sous- 
programmes : 
-_ initialisation d'une partie, 
- dessin du cadre et du mur de briques, 
- placement au hasard de la balle. 


140-160 répètent l'instruction 150 jusqu'à ce que le temps imparti à 
la partie soit écoulé ou jusqu'à ce que le mur de briques soit entiè- 
rement détruit: 


150 appelle le sous-programme de déplacement de la balle et le 
sous-programme de déplacement de la raquette et incrémente le 
compteur de temps. 


170 appelle le sous-programme de fin de partie. 


c) Le programme d'initialisation du jeu (9000-9190) 


9010 initialise le meilleur score et fixe le nombre de balles prévues. 
9020 supprime le bip du clavier et le curseur d'écran. 
9030 fixe les couleurs d'encre (utilisée pour le cadre et la balle) et de fond. 


9040-9070 fixent les coordonnées du cadre et du domaine dans lequel 
évolue la raquette ainsi que sa longueur. 


9080 calcule le nombre total de briques formant le mur. 
9085 détermine la position initiale de la raquette. 


9090-9180 fabriquent les caractères graphiques (et les chaînes de carac- 
tères) représentant la balle, les briques du mur et la raquette. 


d) Le sous-programme d'initialisation d’une partie (8500-8540) 


Il initialise le compteur de temps, le nombre de briques détruites, le nombre 
de balles restant à jouer et il en affiche la valeur. 
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e) Le sous-programme de placement au hasard de la balle (7000- 
7090) 


7005 vérifie qu'il y a encore au moins une balle à jouer. 
7010-7030 placent la balle, de façon aléatoire. 
7040-7050 déterminent la direction de la balle, de façon aléatoire. 


7060-7080 effacent l'ancienne raquette et dessinent la nouvelle en posi- 
tion initiale. 


f) Le sous-programme de dessin du cadre et du mur (8000-8120) 


8000-8060 dessinent le cadre. 
8070-8110 dessinent le mur. 


g) Le sous-programme de déplacement de la balle (3990-4170) 


Pour chaque déplacement, il considère trois cases comme l'indique ce 
schéma : 


C1 C3 


C2 


(@ désigne la balle et la flèche représente son sens de déplacement). 


4000 teste le contenu des trois cases C1,C2 et C3. 


4010-4040 cas où ces trois cases sont disponibles : on avance la balle en 
C3 en vérifiant que la raquette ne rate pas la balle. Dans ce dernier 
cas, le nombre de balles restantes est incrémenté et l'on dessine une 
nouvelle balle (sous-programme 7000). 


4050-4170 examinent le contenu de ces cases, lorsqu'elles ne sont pas 
toutes les trois disponibles: 
4070-4090 cas où C1 est occupée: 
4070 appelle, lorsqu'il s'agit d'une brique, le sous-programme 
“brique détruite” qui incrémente le nombre de briques et qui 
l'affiche. 


114 


4080 assure, dans tous les cas (brique ou bord) le rebond de la 
balle et sa sonorisation. 


4100-4130 cas où C2 est occupée (sans que C1 le soit). On procède 
comme ci-dessus; seul le rebond a lieu différemment. 


4140-4170 cas où seule C3 est occupée. On procède de même: 
cependant 4160 donne au rebond un caractère quelque peu aléa- 
toire (on est ici dans le cas où l’on touche une brique par un coin). 


h) Le sous-programme de déplacement de la raquette (4990-5050) 
5000-5010 lisent le clavier. 


5020 efface la raquette de son ancienne position. 


5030-5050 déterminent la nouvelle position de la raquette et la dessinent. 


i). Le sous-programme de sonorisation de rebond (2990-3030) 


Il émet un son dont la fréquence dépend de l'objet sur lequel la balle 
rebondit : 


100 pour une brique, 
500 pour le bord, 
200 pour la raquette. 


j) Le sous-programme de fin de partie (8700-8780) 


8720-8740 calculent le score et l'affichent en même temps que le meilleur 
score. 


8750 actualise le meilleur score. 


8760-8770 vous demandent si vous souhaitez rejouer. 


5. Liste des variables 


MS meilleur score 

NX nombre total de balles 

PA couleur du fond (ici noir) 

IN couleur de l'encre utilisée pour le cadre et la balle 
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X1,X2,Y1,Y2 coordonnées du cadre 


Y3,Y4 
R1,R2 


LR 
XM 


NB 
CT 
CM 
CB 
CR 
CE$ 


CR$ 
XR,YR 

T 

ND 

NC 

X,Y 
DX,DY 
C1,C2,C3 


SC 


limites (verticales) entre lesquelles s'étend le mur 


limites (verticales) entre lesquelles peut se déplacer la 
raquette 


longueur de la raquette 


abscisse maximum de la raquette, compte-tenu de sa 
longueur 


nombre total de briques 

code ASCII du caractère représentant le cadre 
code ASCII du caractère représentant les briques 
code ASCII du caractère représentant la balle 
code ASCII du caractère représentant la raquette 


chaîne de caractères blancs servant à l'effacement de la 
raquette 


chaîne de caractères représentant la raquette 
coordonnées de l'extrémité gauche de la raquette 
compteur de temps 

nombre de briques détruites 

nombre de balles restant à jouer 

coordonnées de la balle (sauf en 8000) 

sens de déplacement de la balle 


codes ASCII des caractères situés sur la trajectoire de la 
balle (voir schéma) 


score 


Variables auxiliaires 


| CX CL 


X et Y (dans le sous-programme 8000) 


F 
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15 
Embarquement immédiat 


1. Le jeu 


Devenez pour un instant un extra-terrestre ! C'est ce que vous propose ce 
jeu qui vous place aux commandes d'une soucoupe volante. 


Vos compatriotes ont voulu réaliser une exploration pacifique de la terre. lls 
y ont déposé une colonie de robots, programmés pour recueillir le maximum 
d'informations. Mais les choses ont mal tourné ! Les terriens se sont empa- 
rés de vos robots et tentent d'en percer le secret. 


Vous êtes chargés de les récupérer le plus vite possible à l’aide d'une 
soucoupe équipée d'un générateur d'ondes anti-gravitationnelles. Vous 
pouvez ainsi ‘’aspirer'” n'importe quel objet, simplement en le survolant. 
Facile direz-vous ! Certes. Encore, faut-il éviter de récupérer par maladresse 
des robots terriens qui voisinent avec les vôtres. En effet, ceux-ci risquent 
d'endommager plus ou moins gravement votre soucoupe, vous obligeant 
ainsi à effectuer des réparations coûteuses en temps. 
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Le domaine où sont parqués vos robots est entouré d'un intense champ 
gravitationnel. Le moindre survol vous ferait vous écraser au sol. 


Enfin, votre soucoupe consomme énormément d'énergie ; vous ne disposez 
que d'un temps limité pour effectuer votre ‘’embarquement”’. Si vous n'y 
parvenez pas dans le délai imparti, vous vous écraserez sur le sol terrestre. 


Le programme vous propose quatre vitesses de jeu et trois niveaux: 


e Niveau 1 : Destiné à l'entraînement. || ne comporte ni robots terriens, ni 
champ gravitationnel. 


e Niveau 2:11 comporte des robots terriens mais pas de champ gravita- 
tionnel. 


e Niveau 3:11 correspond à la description faite ci-dessus avec robots ter- 
riens et champ gravitationnel. 


Vous voyez ensuite apparaître vos robots (en jaune), les robots terriens (en 
bleu auréolé de blanc) s'il y a lieu et votre soucoupe. Le tout est entouré 
d'une bordure bleue et blanche qui délimite le domaine de jeu et qui repré- 
sente, au niveau 3, le champ antigravitationnel. 


Vous pouvez examiner la situation à loisir avant de commencer en tapant 
sur une touche. Vous dirigez votre soucoupe à l'aide des quatre touches 
fléchées. 


Le programme affiche en permanence le temps restant, le niveau de jeu, 
la vitesse et le meilleur score. Le survol d'un robot terrien est accompa- 
gné d'un bruit d'explosion et votre soucoupe est immobilisée un certain 


v… 


temps. Le survol d'un de vos robots se traduit par un ‘zap”. 


Si vous parvenez à atteindre votre objectif dans le temps imparti, vous 
entendrez votre soucoupe s'éloigner de plus en plus rapidement. Dans le 
cas contraire, vous l'entendrez tomber et s'écraser au sol. (Voir photo 6 
hors-texte : Vue de l'écran pendant le déroulement du jeu). 


118 


2. Le programme 


100 
110 
120 
130 
140 
150 
160 
170 
172 
175 
180 
190 
200 
250 
260 
265 
270 
280 
290 
300 
310 
320 
330 
340 
1490 
1500 
1520 
1530 
1540 
1690 
1700 
1720 
1730 
1740 
1745 
1730 
1990 
2000 
2015 
2020 
2030 
2040 
2050 
2060 
2070 


REM #####%###u# EMBARQUEMENT IMMEDIAT #44 666 
GOSUB 9700 
REPEAT 

: GOSUB 9000: GOSUB 8000 

1 IF PEEK(768)<>176 THEN DL=PEEK(735)-135 
1  XPæX+(DLal)-(DLæ2)1 YPæY+(DLe4)-(DLe3) 

1 TaT-11 PLOT 7,0,S8TR$(T)+"  " 
1 IF VI<4 THEN WAIT 3#(4-VI) 

1 IF SCRN(IXP,YP)<>32 THEN 250 
1  PLOT X,V,32: X=XPs YeYPs PLOT X,Y,CS 
1 IF T)>0 AND NR>0 THEN 140 
1 IF T<=0 THEN GOSUB 2000 ELSE GOSUB 3000 
1 GOTO 300 
1  CeSCRN(XP,YP) 
1 IF C=CG AND NV=3 THEN GOSUB 2000: GOTO 300 

à IF C=CG THEN DL=0: GOTO 180 
1 IF C=CH THEN GOSUB 1700: GOTO 180 

1 IF CCR THEN GOSUB 1500: GOTO 180 

1 GOTO 140 
1 IF TOMS(NV,VI) THEN MS(NV,VI)=T 

1 PLOT 3,26,121 PLOT 4,26,"voulez vous rejouer (0/N)" 
1 GET R$: GET R$ 
UNTIL R$<>"0" 
END 

REM === SP ROBOT EMBARQUE ---------"""" 
ZAP à NRE=NR-1 

PLOT X,Y,32 

X=XPr Y=YP: PLOT X,Y,CS 

RETURN 

REM ---- 6P ROBOT TERRIEN TOUCHE ------ 
PINGIWAITB: SHOOT: WAIT8: SHOOT 

PLOT X,Y,32 

XeXP1 Y=YPs PLOT X,Y,CS 

P=INT(RND(1)#60)1 T=T-P 

WAIT 5+#P 

RETURN 

REM ----- BP PERDU ------“mmmmmmmmmmmm— 
WAIT 301 T=0 

PLAY 1,0,0,0 

FOR I=40 TO 170 

1 SOUND 1,1,7: WAIT 3 

NEXT I! 

PLAY 0,0,0,0 

EXPLODEs: WAIT 401 EXPLODE: WAIT 25: EXPLODE 
RETURN 
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120 


3000 
3008 
3020 
3030 
3040 
3050 
3060 
3080 
8000 
8010 
8070 
8080 
8090 
8100 
8110 
8120 
8150 
8160 
8170 
8175 
8180 
8190 
8200 
8210 
8212 
8215 
8220 
8222 
8224 
8226 
8250 
8270 
8500 
8510 
8520 
8530 
8540 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 


WAIT 50 

PLAY 1,0,0,0 

FOR 1=170 TO 40 STEP -1 

& SOUND 1,1,7 WAIT 3 

NEXT I 

PLAY 0,0,0,0: WAIT 50 

RETURN 

REM ---- GP INITIALISATION D'UNE PARTIE ---------- 
T=8001 NH=251 NR=15S 

FOR X=Xi1 TO X2 

1 PLOT X,Y1,CG: PLOT X,Y2,CG 
NEXT X 

FOR Y=Y1 TO Y2 

1 PLOT X1,Y,CGr PLOT X2,Y,CG 
NEXT Y 

FOR Iz1 TO NR 

1 GOSUB 8500: PLOT X,Y,CR 
NEXT I 

IF NV<2 THEN 8210 

FOR I=1 TO NH 

: GOSUB 8500: PLOT X,Y,CH 
NEXT I 

GOSUB 8500: PLOT X,Y,CS 

DL=0 

PLOT 2,0,"tapez sur une touche pour commencer " 


GET R#$: WAIT 20 

PLOT 1,0,2 

PLOT 2,0,"TEMPS M-TEMPS NIV VIT 4 
PLOT 20,0,STR$(MS(NV,VI)) 


PLOT 29,0,STRS# (NV): PLOT 35,0,STR#(VI) 

RETURN 

REM --- GP TIRAGE COORDONNEES D'UN POINT DISPONIBLE --- 
X=X1+2+INT(RND(1)#(X2-KX1-3)) 
Y=Y1+2+INT(RND(1)#(Y2-Y1-3)) 

IF SCRNIX,Y)<>32 THEN 8510 

RETURN 

REM --- 6P CHOIX DE L'UTILISATEUR --------"" 
CLS: PAzb: IN=4 

PAPER PA: INK IN 

PLOT 8,4,"EMBARQUEMENT IMMEDIAT" 

PLOT 5,8,"3 niveaux possibles" 

FOR I=1 TO 3 

4 PLOT 3,9+1,19: PLOT 37,9+1,PA+16 

NEXT I 

FOR Is=i TO 3 

4 PLOT 4,9+1,1: PLOT 5,9+1,CHR$#(1+48)1 PLOT 6,9+I,IN 


9100 
9110 
9120 
9130 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9253 
9255 
9257 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9500 
9510 
9320 
9530 
9540 
9550 
9700 
9720 
9740 
9750 
9760 
9770 
9780 
9790 
9800 
9810 
9820 


NEXT I 

PLOT 7,10,"pas d'obstacles" 

PLOT 7,11,"obstacles (robots terriens)" 
PLOT 7,12,"obstacles et champ de gravite" 
PLOT 8,14,"niveau choisi?" 

R$=KEY$: IF R$="" THEN 9180 
NV=VAL(RS$) 

IF NV>0 AND NV<4 THEN 9250 

à PLOT 22,14,"(1, 2 ou 3 svp)" 

4 WAIT 100 

t PLOT 22,14," * 

1 GOTO 9180 

PLOT 22,14,CHR$(48+NV) 

FOR I=1 TO 2 

4 PLOT 3,18+1,18x PLOT 35,18+I,PA+16 
NEXT I 

PLOT 5,17,"4 vitesses possibles" 
PLOT 8,19,"de 1 (lent)" 

PLOT 8,20," a 4 (rapide)" 

PLOT 8,22,"vitesse choisie?" 
R$=KEV$: IF R$="" THEN 9300 
VI=VAL(R$) 

IF VI>0 AND VI<S THEN 9370 

1 PLOT 26,22,"(1 a 4 svp)" 

t WAIT 100 

4 PLOT 26,22," L 

4 GOTO 9300 

PLOT 26,22,CHR$#(48+VI) 

WAIT 100 

CLS: PAz=0: IN=3: PAPER PA: INK IN 
RETURN 

REM === SP INIT CARAC GRAPHIQUES -------------". 
AM246080+8#C 

FOR 120 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 

REM == SP INITIALISATIONS DU JEU ------------- 
Xi=21 X2=391 Yinmi: V2=2b 

CG=64+1281 CRa294r CSe9b: CHaCR+128 
DATA 12,12,30,63,63,30,12,12 
C=CG-128: GOSUB 9500 

DATA 14,14,4,31,47,14,10,10 

C=CR: GOSUB 9500 

DATA 12,20,63,45,45,63,63,30 

CeCS: GOSUB 9500 

DIM MS(3,4): POKE #26A,10 

RETURN 
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3. Si vous souhaitez personnaliser ce programme 


1. Pour changer la couleur de fond 


Remplacez, en 9390, la valeur O (dans PA = O) par le nombre de votre 
choix. Notez que cette modification agit sur la couleur de la bordure et des 
robots terriens. 


2. Pour changer la couleur de vos robots et de la soucoupe 


Remplacez, en 9390, la valeur 3 (dans IN = 3) par la valeur de votre choix. 
Là encore, cette modification agit sur la couleur de la bordure et des robots 
terriens. 


3. Pour changer la durée du jeu 


Remplacez, en 8010, la valeur 800 par un nombre de votre choix. 


4. Pour modifier le nombre de robots 


Remplacez, en 8010, la valeur 15 (dans NR = 15) par le nombre de votre 
choix. 


5. Pour modifier le nombre de robots terriens 


Remplacez, en 8010, la valeur 25 (dans NH = 25) par le nombre de votre 
choix. 


6. Pour utiliser une poignée de jeu 


Chargez le programme ‘ MANETTE 1”, comme décrit en annexe. Branchez 
la poignée droite et remplacez les lignes 140 et 150 par: 


140 C—PEEK(# 400): IF C <> 191 THEN DL=C 
145 XP-X+((DL AND 1)=0)-((DL AND 2)=0) 
150 YP=-Y+((DL AND 16)-0)-((DL AND 8)—0) 
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4. Description du programme 


b) 


Techniques utilisées, décrites en annexe 


Hasard. 

Création de caractères graphiques. 
Lecture rapide du clavier. 
Configuration clavier/écran. 
Poignées de jeu (facultatif). 


Le programme principal (100-340) 


110 appelle le sous-programme dl'initialisation du jeu. 


120 et 290 répètent les instructions 130 à 280 (déroulement d'une partie) 


jusqu'à ce que vous ne souhaitiez plus rejouer: 

130 appelle le sous-programme de choix du niveau et de la vitesse de 
jeu ainsi que le sous-programme d'initialisation de la partie. 

140-290 sont répétées jusqu'à la fin de la partie (temps dépassé ou 
champ anti-gravitionnel où robots embarqués): 


140 examine le clavier et, si une touche est enfoncée, actualise la 
direction de déplacement de la soucoupe. 


150 calcule la nouvelle position de la soucoupe. 
160 actualise le temps. 
170 réalise une attente dépendant de la vitesse de jeu choisie. 
172 examine le prochain emplacement. 
175-190 cas où il est disponible : on s'assure que la partie n'est pas 
terminée. Dans ce cas, on appelle l’un des sous-programmes de fin 
de partie (perdu ou gagné). 
250-280 cas où il est occupé: 
260 appelle le sous-programme de fin de partie s'il s’agit d'un 
champ anti-gravité et si l'on est en niveau 3. 


265 immobilise la soucoupe s'il s'agit d'un champ anti-gravité 
et si l'on est dans un niveau différent de 3. 


270 appelle, s'il y a lieu, le sous-programme ‘robot terrien 
touché”. 


280 appelle, s'il y a lieu, le sous-programme ‘robot embarqué”. 
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300-320 actualisent le meilleur score et vous demandent si vous 
voulez rejouer. 


c) Le sous-programme de choix du niveau de jeu (9000-9400) 


9010-9020 fixent les couleurs d'encre et de fond employées pendant la 
durée du choix. 


9030-9240 font choisir le niveau de jeu, en rejetant les réponses autres 
que 1, 2 ou 3. 


9250-9380 font choisir la vitesse de jeu, en rejetant les réponses autres 
que 1, 2, 3 ou 4. 


9290 fixe les couleurs d'encre et de fond employées pendant le déroule- 
ment de la partie. 


d) Le sous-programme d'initialisation du jeu (9700-9820) 
9720 fixe les limites du domaine de jeu. 


9740-9800 fabriquent les caractères graphiques représentant le champ 
gravitationnel, la soucoupe et les robots. 


9810 réserve le tableau des meilleurs scores et supprime le bip du clavier 
et le curseur d'écran. 


e) Le sous-programme d'initialisation d'une partie (8000-8270) 


8010 initialise le compteur de temps, le nombre de robots terriens et le 
nombre de robots extra-terrestres. 


8070-8120 trace le contour d'un rectangle représentant la zone où règne 
un champ gravitationnel. 


8150-8170 dessinent les robots extra-terrestres. Le sous-programme 
8500 est utilisé pour tirer les coordonnées d'un emplacement 
disponible. 


8175-8200 dessinent, s’il y a lieu (niveau de jeu au moins égal à 2), les 
robots terriens. 


8210-8212 dessinent la soucoupe dans sa position de départ et initialisent 
sa direction de déplacement. 


8215-8220 attendent que vous pressiez une touche. 


8222-8250 affichent le meilleur score, le niveau et la vitesse de jeu. 


124 


f) Le sous-programme ‘robot embarqué’ (1490-1540) 


1500 émet un zap et actualise le nombre de robots restant à embarquer. 
1520 efface le robot. 
1530 déplace la soucoupe. 


g) Le sous-programme ‘robot terrien touché’ (1690-1745) 


1700 émet des sons appropriés. 
1720 efface le robot. 
1730 déplace la soucoupe. 


1740-1745 attendent pendant une durée tirée au hasard et actualisent le 
compteur de temps. 


h) Le sous-programme ‘’ perdu’ (1990-2070) 


Il fait entendre le bruit de la soucoupe qui perd de l'altitude et qui explose 
au sol. 


i) Le sous-programme ‘’gagné'’ (3000-3080) 


Il fait entendre le bruit de la soucoupe qui s'éloigne de plus en plus vite. 


5. Liste des variables 


X1,X2,Y1,Y2 coordonnées du domaine de jeu 


CG code ASCII du caractère graphique représentant la limite du 
domaine (champ anti-gravité) 


CR code ASCII du caractère graphique représentant les robots 
extra-terrestres 

CS code ASCII du caractère graphique représentant la 
soucoupe 

CH code ASCII du caractère graphique représentant les robots 
terriens 
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PA 

IN 

NV 

VI 

T 

NH 

NR 

DL 
MS(3,4) 


X,Y 
XP,YP 


couleur de fond 

couleur d'encre 

niveau de jeu 

vitesse de jeu 

compteur de temps 

nombre de robots terriens 

nombre de robots extra-terrestres 

direction de déplacement de la soucoupe (1 à 4) 


tableau des meilleurs scores. MSli,j) représente le meilleur 
score relatif au niveau i et à la vitesse j 


coordonnées de la soucoupe 
coordonnées du prochain emplacement de la soucoupe 


Variables auxiliaires 


C AM 


XX R$ 


X et Y (dans les sous-programmes 8500 et 9000) 
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16 
Aliénation 


1. Le jeu 


Ça y est ! Les aliens, ces êtres venus d'ailleurs, ont envahi la terre. La race 
humaine a presque entièrement disparu de la planète. Vous êtes l’un des 
rares survivants. Pour combien de temps! De nombreux aliens ne cessent 
de vous poursuivre pour vous détruire. Or, le moindre contact avec l'une de 
ces créatures serait mortel. 


Pour comble de tout, vous ne disposez d'aucune arme pour vous défendre. 
Toutefois, ça et là gisent des robots, à forme humaine, cloués sur place par 
une privation soudaine de l'énergie nécessaire à leur fonctionnement. Que 
puis-je attendre d'eux me direz-vous ? 


En fait, chacun de ces robots va pouvoir vous rendre un ultime service en 
faisant disparaître un alien (et un seul). En effet, tout contact entre un alien 
et un objet métallique conduit à la désintégration complète, et de l'objet et 
de l'alien. D'autre part, les aliens sont des êtres un peu stupides et aux 
réflexes lents (c'est leur nombre seul qui fait leur force). 
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Ils se déplacent par bonds irréguliers et, de façon assez grossière, dans 
votre direction. || vous suffit donc de les obliger à bondir sur un robot pour 
les faire disparaître. 


Comme vous le constaterez, les aliens font de grands bonds lorsqu'ils sont 
loin de vous. Par contre, une sorte de méfiance instinctive les amène à 
avancer plus lentement lorsqu'ils sont plus proches de vous. D'autre part, 
leur sens de l'orientation est peu évolué puisqu'ils peuvent être tout près 
de vous et faire un bond sur. ‘’un emplacement voisin”. 


Enfin, sachez que vous êtes la seule proie qui intéresse les aliens. En consé- 
quence, ils ne voient aucunement les robots et leurs déplacements ne sont 
nullement affectés par leur présence. 


En début de partie vous voyez apparaître la disposition des aliens (rouges), 
des robots (bleus) et du personnage qui vous représente (en rouge). Vous 
pouvez prendre le temps d'étudier la situation avant d'appuyer sur une 
touche quelconque. La chasse infernale s'engage alors. Vous vous déplacez 
grâce aux quatre touches fléchées? Ne craignez pas de percuter un robot. 
Cela ne vous fera aucun mal. 


Chaque désintégration (robot + alien) vous est signalée par un bruit sec et 
un éclair. Si vous êtes atteint par un alien (ou si, maladroitement, vous en 
percutez un) votre disparition est accompagnée de sons et d'effets lumi- 
neux appropriés. 


Le programme affiche en permanence le temps qui s'écoule et le meilleur 
temps réalisé jusqu'ici. 


128 





Vue de l'écran pendant le déroulement d'une partie 


2. Le programme 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


REM ###k###U#EX ALIENATION Watt dede dede MERE DEEE MENU NN 
GOSUB 9000 
REPEAT 
GOSUB 8000 
FOR I=1 TO NA 
T=T+i: PLOT 7,0,STR#(T) 
GOSUB 4000: GOSUB 5000: IF FIz1 THEN 190 
NEXT 
GOTO 140 
IF CT=0 AND(ITEMT OR MT=0) THEN MTa=T 
WAIT 50: PLOT 26,0,12: PLOT 27,0,"rejouez vous" 
: GET R$: GET R$ 
UNTIL R$<>"o" 
END 
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130 


3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4990 
3000 
5010 
5020 
5030 
5040 
3050 
5060 
5080 
6000 
6010 
8020 
6030 
6040 
6050 
6060 
6070 
6075 
6080 
6090 
6990 
7000 
7010 
7020 
7030 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8065 
8070 
8080 
8090 
8100 


REM ----- SP DEPLACEMENT HUMANOIDE ------------- 
CL=PEEK(#208): IF CLe#38 THEN RETURN 
XN=XB+(CL=HAC)-(CLe#BC): YN=YB+(CLe=#9C)-(CLe#B4) 

IF XN2X2-2 OR XN<X1+2 OR YN>Y2-2 OR YN<Y1+2 THEN RETURN 
IF GCRN(XN,YN)<>32 AND GSCRN(XN,YN)<>CB THEN 4050 

PLOT XB,VB,32: XB=XN: YB=YN: PLOT XB,VB,CB: RETURN 

IF SCRN(XN,YN)=C0 THEN RETURN 

GOSUB 6000: RETURN 

REM ----- SP DEPLACEMENT ALIEN NUMERO I ---------- 
X=XA(I): Y=VA(I): IF X=0 THEN RETURN 
XN=X+(RND(1)+0,5)#((X>XB)-(XCXB)+2#((X>XB+4)-(X<XB-4))) 
YN=Y+(RND(1)+0,.5)#((Y>YB)-(Y<YB)+2#((Y>YB+4)-(Y<YB-4))) 
IF SCRN(XN,YN)<>32 THEN 5050 

PLOT X,V,32: PLOT XN,YN,CA: XA(I)=XN: YA(I)=YNs RETURN 
IF SCRNIXN,YN)=CA THEN RETURN 

IF SCRN(XN,YN)=C0 THEN GOSUB 7000 ELSE GOSUB 6000 
RETURN 

REM ----- SP MORT HUMANDIDE ---------------------- 

FOR L=1 TO 7 

: FOR K=1 TO 7 

5 INK K: PAPER L 

: NEXT K 

t ZAP: WAIT 2 

NEXT L 

INK IN: PAPER PA: PLOT 0,0,16: PLOT 2,0,2 

PLOT XB,YB,32: PLOT XN,YN,CA 

EXPLODE: WAIT 60: EXPLODE 

FI=i: RETURN 

REM ----- SP MORT ALIEN --------------------------- 
INK 5: PLOT X,Y,32: XA(I)=0 

PLOT XN,YN,32: SHOOT: WAIT 5: INK IN 

CT=CT-1: IF CT<=0 THEN Flz=i 


RETURN 
REM ----- SP INITIALISATION D'UNE PARTIE --------- 
CT=NA: CLS: FI=0: T=0 


PLOT 0,0,16: PLOT 2,0,2 

FOR I=1 TO NO 

5 X=X1+3+INT(RND(1)#(X2-X1-5)) 
à Y=Y1+3+INT(RND(1)#(Y2-Y1-5)) 
t IF SCRN(X,Y)<2>32 THEN 8040 


1 PLOT X,Y,C0 
NEXT I 
FOR Iz=1 TO NA 


5 X=X1+INT(RND(1)#(X2-K1+1)) 
5 Y=Y1{+INT(RND(1)#(Y2-Y1+1)) 


8110 
8115 
8120 
8130 
8140 
8150 
8160 
8180 
8190 
8200 
8210 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9140 
9150 
9300 
9510 
9520 
9530 
9340 
9550 


5 IF SCRN(X,Y)<>32 THEN 8090 

à XA(I)=X1 VA(I)=Ys PLOT X,Y,CA 
NEXT I 
XB=X1+INT(RND(1)#(K2-KX1-4))+2 
YB=Y1+INT(RND(1)#(V2-V1-4))+2 

IF SCRN(XB,YB)<>32 THEN 8130 

PLOT XB,YB,CB 

PLOT 3,0,"pour commencer, tapez une touche": GET R$ 
PLOT 3,0,"TEMPS M-TEMPS" 
PLOT 21,0,STR$#(MT)+" L 
RETURN 

REM ----- SP INITIALISATIONS DU JEU -------------- 
CLS: IN=i: PAz3: INK IN: PAPER PA 
MT=0: Flz0s NO=18: NA=12 

DIM XA(NA),YA(NA) 

Xis21 X2=381 Vini: V2=26 
CO=64+1281 CA=95: CB=96 

DATA 12,30,53,43,53,63,21,42 

C=CA: GOSUB 9500 

DATA 12,12,8,30,45,12,18,33 

C=CB: GOSUB 9500 

DATA 0,18,63,45,63,31,33,51 
C=C0-128: GOSUB 9500 

POKE #264,10 


RETURN 

REM ----- 8P INIT CARAC GRAPHIQUES -------------- 
AM=46080+B#C 

FOR I=0 TO 7 

à READ XX: POKE AM+I,XX 

NEXT ! 

RETURN 


3. Si vous souhaitez personnaliser ce jeu 


1. Pour modifier le nombre de robots 


Remplacez, en 9020, le nombre 18 par la valeur de votre choix. 
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2. Pour modifier le nombre d'aliens 
Remplacez en 9020, le nombre 12 par la valeur de votre choix. 


REMARQUE: Ne placez jamais plus d'aliens que de robots, car il serait alors 
impossible de gagner. 


3. Pour utiliser une poignée de jeu 


Chargez le programme ‘’MANETTE 1’ comme indiqué en annexe. Bran- 
chez la poignée du côté droit puis remplacez les lignes 4000 et 4010 par: 


4000 CL=PEEK(#400): IF CL=191 THEN RETURN 
4010 XN=XB+((CL AND 1)=0)-((CL AND 2)=0) 
4015 YN=YB+((CL AND 16)=0)-((CL AND 8)=0) 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 

— Poignées de jeu (facultatif). 


b) Le programme principal (100-230) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 220 répètent les instructions 130 à 220 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer. 
130 appelle le sous-programme d'initialisation d'une partie. 

140 à 180 sont répétées jusqu'à ce que la partie soit finie (FI — 1), 
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soit par disparition de tous les aliens, soit par votre propre 
disparition : 

140 et 170 répètent, pour chaque alien, les instructions 150 et 
160. Celles-ci incrémentent le temps, déplacent l'humanoïde qui 
vous représente et un alien. 


190-200 actualisent le meilleur score et vous demandent si vous 
désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9150) 


9010 fixe les couleurs de fond et d'encre. 

9020 initialise le meilleur score et fixe le nombre de robots et d’'aliens. 
9030 réserve les deux tableaux contenant les coordonnées des aliens. 
90490 fixe les limites du domaine de jeu. 


9050-9110 fabriquent les caractères graphiques représentant les robots, 
les aliens et l'humanoïde. 


9140 supprime le bip du clavier et le curseur d'écran. 


d) Le sous-programme d'initialisation d'une partie (8000-8210) 


8010 initialise le nombre d'aliens survivants et le compteur de temps; 
efface l'écran. 


8020 fixe les couleurs (fond et encre) de la ligne du haut de l'écran. 
8030-8070 dessinent les robots dans leur position initiale. 


8080-8120 dessinent les aliens dans leur position initiale et placent leurs 
coordonnées dans XA et YA. 


8130-8160 déterminent les coordonnées initiales de l'humanoïde et le 
dessinent. 


8180 attend que vous tapiez une touche. 


8190-8200 affichent le meilleur temps. 


e) Le sous-programme de déplacement de l'humanoïde 
(3990-4060) 


4000 examine le clavier. 
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4010-4020 calculent la nouvelle position de l'humanoïde et vérifient 
qu'elle reste dans ie domaine de jeu. 


4030 examine le contenu de cette nouvelle position: 
4040 déplace l'humanoïde si la position est libre. 


4060 appelle le sous-programme ‘mort humanoïde” si la position 
est occupée par un alien. 


f) Le sous-programme de déplacement d'un alien 


Il déplace l'alien dont le numéro est contenu dans la variable |. 
5000 vérifie que l'alien concerné est encore vivant. 
5010-5020 calculent la nouvelle position de l'alien. 


5030-5040 vérifient que cette position est disponible et, dans ce cas, 
déplacent l'alien. 


5050 vérifie que cette position n'est pas occupée par un autre alien. 


5060 appelle le sous-programme ‘mort humanoïde” si cette position est 
occupée par l'humanoïde et le sous-programme ‘mort alien” si elle 
est occupée par un robot. 


g) Le sous-programme ‘’ mort d'un alien'” (6990-7030) 


7000 change temporairement la couleur d'encre (pour simuler un éclair) et 
efface l'alien. 


7010 efface le robot, émet un bruit de fusil et rétablit la couleur d'encre 
initiale. 

7020 décrémente le compteur de survivants. Met à un l'indicateur de fin de 
partie si tous les aliens sont morts. 


h) Le sous-programme ‘’’ mort de l'humanoïde ” (6000-6090) 


6010-6060 créent des effets sonores et lumineux en modifiant les 


couleurs d'encre et de fond et en faisant entendre des “’zap”. 
6070 rétablit les couleurs d'origine. 


6075-6080 effacent l'humanoïde et placent à un l'indicateur de fin de 
partie. 
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5. Liste des variables 


PA couleur de fond utilisée pour le domaine de jeu 

IN couleur d'encre utilisée pour l'humanoïde et les aliens; 
les robots sont en ‘vidéo inverse” 

MT meilleur temps 

FI indicateur de fin de jeu 


FI = O cas usuel 
FI = 1 fin de jeu détectée 


NO nombre total de robots 
NA nombre total d'aliens 


XA[(NA),YA(NA) tableaux contenant les coordonnées des aliens. (Quand 
un alien disparaît, son abscisse passe à zéro) 


X1,X2,Y1,Y2 coordonnées du domaine de jeu 

CO code ASCII du caractère représentant les robots 

CA code ASCII du caractère représentant les aliens 

CB code ASCII du caractère représentant l'humanoïde 
CT nombre d'aliens encore en vie 

T temps écoulé 

XB,YB coordonnées de l'humanoïde 

XN,YN nouvelles coordonnées de l'humanoïde ou d'un alien 


| numéro de l'alien en cours de déplacement 


Variables auxiliaires 


| (dans le sous-programme 8000 seulement) 
L OK X Y CL 
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17 
Amanites 


1. Le jeu 


C'est l'automne. Dans les sous-bois et les prairies, le long des routes et des 
chemins, des champignons, pressés de vivre, apparaissent plus beaux et 
plus tentants les uns que les autres. 


Soyez donc un fin ‘mycologue”. Remplissez votre panier de champignons 
comestibles et évitez ceux qui sont dangereux et encore plus ceux qui sont 
mortels. 


Vous déplacez votre “panier”, le long du bas de l'écran à l'aide des touches 
“"s" et +". Les touches ” |” et 1” le déplacent également horizon- 
talement mais à une vitesse triple de la précédente. Les champignons vien- 
nent à vous et pour les cueillir, il vous suffit de les intercepter avec votre 
panier. 
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Vous constatez que les champignons ne se déplacent pas tous à la même 
vitesse ; cela rend plus difficile l'appréciation du moment où ils seront au 
niveau de votre panier et donc le choix de l'ordre dans lequel il faut les 
ramasser. 


Enfin, pour comble de tout, tous n'ont pas la même valeur ! Les champi- 
gnons blancs sans ”volve”’ rapportent un nombre de points égal à dix fois 
leur vitesse (qui va de 1 à 4). Les mêmes champignons, rouges sur fond 
blanc rapportent vingt fois leur vitesse. Par contre, les champignons à volve 
représentent des amanites. Les blancs sont seulement dangereux et vous 
font perdre un nombre de points égal à 100 fois leur vitesse. Par contre, les 
rouges sur fond blanc sont mortels et leur cueillette” interrompt immé- 
diatement la partie. Vous verrez un récapitulatif de ces règles apparaître en 
haut à droite de l'écran. 


Vous disposez d'un temps limité pour obtenir un maximum de points. Lors- 
qu'ils tombent dans votre panier, les champignons comestibles se 
reconnaissent à un bruit de clochette. Les autres se signalent par un coup 
de fusil pour les dangereux et par une explosion pour les mortels (nous 
devrions dire le mortel car vous n'aurez guère l'occasion d'en goûter 
plusieurs au cours d'une même partie). 





Vue de l'écran pendant le déroulement d'une partie 
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2. Le p 


100 
110 
120 
130 
140 
150 
160 
170 
190 
200 
210 
220 
230 
240 
2990 
3000 
3030 
3040 
3050 
3990 
4000 
4020 
4030 
4040 
4990 
5000 
5010 
5015 
5020 
5040 
5050 
5100 
5110 
3990 
6000 
6010 
6020 
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rogramme 


REM ########tXx AMANITES ANNEE HE DE DEA DEA HE HE NE EEE EEK 
GOSUB 9000 
REPEAT 

1 GOSUB 8000 
REPEAT 
FOR I=i TO NC 
GOSUB 4000: GOSUB 30001 T=T-11: IF FI=1 THEN 190 
NEXT 
UNTIL FIzi OR T<=0 
PLOT 20,0,121 PLOT 21,0,"rejouez vous s 
GET R$s GET R$ 

1 IF SC>MS THEN MS=6SC 
UNTIL R$<>"Q" 
END 

REM ----- SP DEPLACEMENT DU CHAMPIGNON I --------- 
YN=Y(I)+V(I)s PLOT X(1),Y(1),32 

IF YNÇCY2 THEN V(I)=YNs PLOT X(1),Y(1),C(1): RETURN 
IF BCRN(X(I),Y(I)+1)<932 THEN GOSUB 5000 

GOSUB 6000: RETURN 

REM ----- SP DEPLACEMENT PANIER ----------------- 
C=PEEK(#208): IF C=#38 THEN RETURN 

PLOT X,Y," " 
X=X+(C=#BC)#(X<36)-(C=HAC)#(X22)+3#(CeH#9C)#(KC34)-3#(C=H#B4)#(X24) 
PLOT X,Y,CR$: RETURN 

REM ----- SP CHAMPIGNON CUEILLI ---------------- 
IF C(1)=223 THEN 5100 

K=10: PING: IF C(1)=222 THEN K=20 


IF C(1)=95 THEN K=-100: SHOOT 

SC=SC+K#V(I): IF SC<O THEN SC=0 

PLOT 4,0," "sPLOT 4,0,STR$(SC) 

RETURN 

EXPLODE: FIl=i 

RETURN 

REM ----- TIRAGE NOUVEAU CHAMPIGNON ------------- 


Y(I)=is X(I)=X1+INT(RND(1)#(X2-X1+1)) 
C(I)=CC(INT(RND(1)#8+1)): VCI)=INT(RND(1)#VM+1) 
RETURN 


8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
9000 
9010 
9020 
9030 
9040 
9045 
9050 
9060 
9070 
9075 
9077 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9500 
9510 
9320 
9530 
9340 
9550 


REM ----- 8P INITIALISATION D'UNE PARTIE ----------- 


CLS: PLOT 1,0,2: PLOT 1,26,IR: SC=0 

PLOT 2,0,"6C M-6C ) 

PLOT 15,0,S8TR$(MS): PLOT 22,0,IN 

PLOT 23,0,CHR$(CC(1))+"10"+CHRS$(CC(2))+"20" 
PLOT 29,0,CHR$#(CC(3))+"-100"+CHR$(CC(4))+"FIN" 
FOR Izi TO NCr GOSUB 6000: NEXT I 

X=151 Y=26% FIl=0: T=1000 

PLOT X,Y,CR$ 


RETURN 
REM ----- BP INITIALISATIONS DU JEU -------"--""-"" 
IN=61 PA=Or IR=31 CLS1 INK IN: PAPER PA 


Xim21 X2=381 Visis V2=26 

NC=91 VM=4s MS=0 

DIM XNC) , VONT) ,C NC) ,VNC) ,CC (8) 

POKE #26A,10 

DATA 12,30,63,63,12,12,12,12 

DATA 12,30,63,63,12,12,30,30 

CC(1)=94r CC(2)294+1281 CC(3)=98: CC(4)=295+128 
CC(S)=941 CC(6)=041 CC(7)=94+128: CC(B)=94+128 
Cimé4r C2=931 C3=96 

C=CC(1)1 GOSUB 9500: C=CC(3): GOSUB 9500 

DATA 56,56,56,28,31,15,7,1 

C=Ci: GOSUB 9500 

DATA 0,0,0,0,63,63,63,63 

C=C2: GOSUB 9500 

DATA 7,7,7,14,62,60,56,32 

C=C31 GOSUB 9500 
CR#=CHRS (C1) +CHR$ (C2) +CHR$ (C3) 


RETURN 

REM ----- SP INIT CARAC GRAPHIQUES --------------- 
AM=46080+8%C 

FOR I=0 TO 7 

5 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 
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3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du panier 


Remplacez, en 9010, le nombre 3 par une valeur de votre choix (1 à 7). 


2. Pour modifier la durée d'une partie 


Remplacez, en 8070, le nombre 1000 par une valeur de votre choix. 


3. Pour modifier le nombre de champignons présents en même 
temps sur l'écran 


Remplacez, en 9030, la valeur 9 par un nombre de votre choix. Notez que: 
e une valeur trop petite conduit à une perte d'intérêt du jeu, 


e une valeur trop grande entraîne un déplacement trop ‘saccadé'”’ des 
champignons. (Seule, une programmation en langage machine permet- 
trait de déplacer convenablement un nombre important de champignons). 


4. Pour modifier la vitesse maximum de déplacement d'un 
champignon 


Remplacez, en 9030, le nombre 4 par une valeur de votre choix comprise 


entre 1 et 4 (une valeur supérieure à 4 conduirait à un fonctionnement 
défectueux). 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— SCROLL 


— Configuration clavier/écran. 
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b) Le programme principal (100-240) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 230 répètent les instructions 130 à 220 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 


130 appelle le sous-programme d'initialisation d'une partie. 


140 et 190 répètent les instructions 150 à 170 jusqu'à ce que le 
temps imparti soit écoulé ou que vous ayez ‘”’cueilli” un champi- 
gnon mortel (FI — 1): 

150 à 170 déplacent tour à tour chacun des champignons (sous- 
programme 3000) ainsi que le panier (sous-programme 4000). 


200-210 vous demandent si vous souhaitez rejouer. 
220 actualise le meilleur score. 


c) Le sous-programme d'initialisation du jeu (9000-9160) 


9010 fixe les couleurs du fond, de l'encre et celle du panier. 
9020 fixe les limites du domaine dans lequel évoluent les champignons. 


9030 fixe le nombre de champignons apparaissant simultanément sur 
l'écran, la vitesse maximum et initialise le meilleur score. 


9040 donne les dimensions des tableaux. 
9045 supprime le bip du clavier et le curseur de l'écran. 


9050-9150 fabriquent les caractères graphiques servant à représenter les 
diverses sortes de champignons ainsi que le panier. 


d) Le sous-programme d'initialisation d'une partie (8000-8080) 


8010-8050 initialisent le score, affichent le meilleur score, les différents 
types de champignons et les points correspondants. 


8060 appelle huit fois le sous-programme 6000 qui tire au hasard la posi- 
tion, le type et la vitesse d'un champignon. 


8070-8080 dessinent le panier dans sa position initiale. 
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e) Le sous-programme de déplacement du champignon numéro | 
(2990-3050) 


3000 calcule la nouvelle position du champignon et l'efface de sa position 
actuelle. 


3030 dessine le champignon dans sa nouvelle position s’il n'a pas atteint le 
bas de l'écran. 


3040 détermine, dans le cas contraire, s'il rencontre le panier et, dans ce 
cas, appelle le sous-programme ‘champignon cueilli”. 


3050 appelle le sous-programme ‘tirage d'un nouveau champignon”, à 
chaque fois qu'un champignon disparaît en bas de l'écran. 


f) Le sous-programme de déplacement du panier (3990-4040) 


4000 examine si une touche du clavier a été enfoncée. 
4020 efface le panier de sa position actuelle. 


4030 détermine la nouvelle position du panier en fonction de la touche 
enfoncée. 


4040 dessine le panier dans sa nouvelle position. 


g) Le sous-programme ‘’ champignon cueilli’’ (4990-5110) 


5000 examine s'il s'agit ou non d'un champignon mortel. 


5010-5050 émettent le son approprié et actualisent le score dans le cas 
d'un champignon non mortel. 


5100-5110 font entendre une explosion et signalent que la partie est finie, 
dans le cas d'un champignon mortel. 


5. Liste des variables 


PA couleur du fond (ici noir) 


IN couleur de l'encre utilisée pour représenter certains champi- 
gnons (les autres étant représentés en ‘vidéo inverse") 
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IR 
X1,X2,Y1,Y2 


NC 
VM 
MS 
X(NC),Y(NC) 


C(NC) 


V(NC) 
CC(8) 


C1,C2,C3 
CR$ 

SC 

X,Y 

FI 


YN 


couleur du panier 


coordonnées du domaine dans lequel évoluent les 
champignons 


nombre de champignons présents simultanément sur l'écran 
vitesse maximum de déplacement d'un champignon 
meilleur score 


tableaux contenant les coordonnées des champignons 
présents sur l'écran 


code ASCII du caractère représentant chacun des champi- 
gnons présents sur l'écran 


tableau contenant la vitesse de chaque champignon 


code ASCII des huit caractères représentant les huit types 
de champignons (ici, plusieurs de ces caractères sont, en 
fait, identiques) 


codes ASCII des trois caractères représentant le panier 
chaîne de trois caractères représentant le panier 

score 

coordonnées de l'extrémité gauche du panier 


indicateur de fin de partie: 
0: cas normal 

1: fin de partie 

durée d'une partie 


numéro du champignon en cours de déplacement (sauf dans 
les sous-programmes 8000 et 9500) 


nombre de points attribués au champignon cueilli 
nouvelle ordonnée du champignon en cours de déplacement 


Variables auxiliaires 


C | R$ 
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18 
Les envahisseurs 


1. Le jeu 


Les extra-terrestres envahissent notre planète. Bien que non armés, leurs 
intentions ne sont nullement pacifiques. Vous êtes chargés d'en détruire le 
maximum à l'aide de missiles classiques. 


Les envahisseurs se présentent par vagues de dix soucoupes. Leur entrée 
brutale dans l'atmosphère terrestre entraîne des perturbations de tout 
genre dont les deux plus importantes sont: violente illumination du ciel, 
neutralisation de votre base de tir (elle ne peut ni se déplacer, ni tirer de 
missiles). 


Les envahisseurs ont prévu que les différentes vagues se succèdent de plus 
en plus rapidement. Cependant, ils tiennent compte de votre habileté à les 
détruire. Plus vous serez rapides, plus le temps séparant deux vagues sera 
élevé. Votre ordinateur central, couplé à vos radars vous renseignera sur le 
délai prévu entre une vague et la suivante. Vous pourrez ainsi mesurer 
l'effet de votre effort destructeur. 
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Au début du jeu, trois vagues apparaissent successivement en bas de 
l'écran. Les soucoupes s'immobilisent alors dans l'attente de la vague 
suivante. 


Vous voyez votre base de tir en haut de l'écran. Elle se déplace à l'aide des 
touches +" et "et vous tirez un missile en pressant la barre d'espace. 
Vous ne pouvez tirer de nouveau missile tant que le précédent n'a pas 
atteint son but ou disparu en bas de l'écran. Par contre, vous pouvez 
déplacer votre base pendant qu'un missile est en l'air. Très souvent même, 
vous serez obligés de le faire pour gagner du temps. 


Quand une nouvelle vague de dix soucoupes se présente, le ciel devient 
blanc et vous ne pouvez plus agir sur votre base de tir. Les soucoupes déjà 
présentes descendent légèrement pour faire place aux nouveaux arrivants 
puis tout redevient normal (si l'on peut dire). 


Le jeu se poursuit jusqu'à ce que l'une des soucoupes atteigne le niveau de 
votre base. Vous avec donc tout intérêt à éliminer les soucoupes les plus 
hautes. 


Le programme affiche en permanence votre score (nombre de soucoupes 
détruites), le meilleur score et le nombre d'envahisseurs présents dans le 
ciel (N — E). (Voir photo 7 hors texte: Vue de l'écran pendant le déroule- 
ment du jeu). 


2. Le programme 


100 REM ##########NX ENVAHISSEURS 44646446 46 DE A AE GE DE HE AE AE DE DE HE 
110 GOSUB 5000 

120 REPEAT 

125 GOSUB 4000: FI=0 

130 FOR I=1 TO 41 GOSUB 2000: NEXT I 

133 DN=DV: DC=DN 

140 FOR I=i TO LVs GOSUB 2000 

143 IF FIl=i THEN 200 

145 NEXT I 

147 CH$=" “#ID=36: GOSUB 70001 CH#28TR$(INT(DC)): GOSUB 7000 
150 FOR I=1 TO DC 

160 GOSUB 1500: GOSUB 1000: GOSUB 1500 

170 NEXT I 

180 DN=DN#TE: DC=DN#(EV#30-NT)/(EV#30) 
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190 

200 

210 

230 

240 

250 

260 

270 

280 

1000 
1010 
1020 
1025 
1030 
1040 
10530 
1060 
1500 
1510 
1320 
1530 
1540 
1550 
1360 
1570 
1580 
1590 
1600 
2000 
2005 
2010 
2020 
2030 
2040 
2045 
2050 
2060 
2070 
2080 
2090 
2100 
2105 
2110 
3000 
3010 
3020 
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GOTO 140 
IF SC<MS THEN 230 
MS=6C: CH$=STR$(SC)1 ID=14: GOSUB 7000 
WAIT 2001 CLS 
PLOT 5,10,"voulez vous rejouer (0/N)?" 
GET R$: GET R$ 
UNTIL R$<>"0" 
POKE #26A,3 
END 
REM ---- GP DEPLACEMENT BASE DE TIR -----------" 
DL=PEEK(#208) 
IF DLe#64 AND YO=VT THEN XO=XT: YO=YT+i: PLOT X0,YO,CO: RETURN 
IF DL<>#AC AND DL<>#BC THEN RETURN 
XN=XT+(DL=#AC)-(DL=#BC) 
IF XN>X2 OR XNÇX1 THEN RETURN 
PLOT XT,YT,32% PLOT XN,YT,CTE XTæXN 
RETURN 
REM ---- GP DEPLACEMENT MISSILE ---------.---- 
IF YO=YT THEN RETURN 
YN=YO+1: PLOT X0,Y0,32 
IF YN>V2 THEN VO=YT: RETURN 
IF SCRN(XO,YN)<>CE THEN PLOT XO,YN,COs YO=YNs RETURN 
SHOOT: PLOT XO,YN,32 
NECYNIeNE(YN)-11 SC=SC+ie NTeNT-1 


CH$=STR$(SC)r ID24: GOSUB 7000 

CH$=6TR$ (NT): ID=251: GOSUB 7000 

YO=YT 

RETURN 

REM ---- SP NOUVELLE VAGUE ENVAHISSEURS ---------- 
PAPER 7 


IF YO<>YT THEN PLOT X0,V0,32: YO2YT 

IF NE(YT+2)<3)0 THEN GOSUB 3000: RETURN 
FOR K=YT+1 TO Y2-1: NE(K)=NE(K+1): NEXT K 
NE(V2)mEV: NTeNT+EV 

CH$=STR$# (NT): ID=25: GOSUB 7000 

PRINT CHR$(10)3;: PLOT XT,YT,CT 

FOR K=1 TO EV 

1 X=INT(IRND(L)#(X2-K1)+%X1) 

1 IF SCRN(K,Y2)<332 THEN 2070 

t PLOT X,Y2,CE 

NEXT K 

PAPER PA 

RETURN 

REM ---- GP FIN DE PARTIE --------------------- 
FOR K=7 TO 0 STEP -1 

s PAPER Ki: ZAP 


3030 
3040 
3050 
3060 
3070 
3080 
4000 
4010 
4015 
4017 
4018 
4020 
4030 
4040 
4050 
4055 
4060 
3000 
5005 
5010 
5020 
5040 
9045 
5050 
3060 
5065 
3070 
5080 
3090 
3100 
5110 
3120 
5130 
35160 
7000 
7010 
7020 
7030 
7040 
8000 
8010 
8020 
8030 
8040 
8050 


1 FOR L=7 TO 0 STEP -1 
t INK Le WAIT 3 


t NEXT L 

NEXT K 

WAIT 100: Flal: PAPER PAr INK IN 

RETURN 

REM ---- 6P INITIALISATION D'UNE PARTIE --------- 
CLS: F=0 

CH$="6C M-6C N-EN DELAI : 
ID=2: GOSUB 7000 


CH$=G6TR$(MS)r ID=14:1 GOSUB 7000 
XT=X1+INT(RND(1)#(X2-KX1)+1) 
YT=Qs XO=XTe PLOT XT,YT,CT 
DC=DV: SC=0: FI=0: NT=0 

FOR Ii TO YV2r NE(I)=mO0s NEXT I 


FOR I=i TO 26: PRINT CHR$#(10)3;2 NEXT I 

RETURN 

REM ---- GP INITIALISATIONS DU JEU ----------- 
POKE #26A,10 


Xi=2: K2=38: Yir0O: Y2=26 
DV=1601 EV=51 LVs21 TEs,975 
DIM NE(26) 

MS=0 

PAzbs INzi 

PAPER PAr INK IN 

CT=941 COx951 CE=96 

DATA 63,63,30,30,12,12,12,12 
C=CT: GOSUB 8000 

DATA 12,12,12,12,12,12,12,12 
C:CO: GOSUB 8000 

DATA 0,12,30,45,63,30,0,0 
C:CE: GOSUB 8000 

AD=#BB801 POKE AD,2 


RETURN 
REM ---- SP AFFICHAGE EN LIGNE SUPERIEURE ------- 
FOR K=1 TO LEN(CH$#) 


POKE AD+ID+K-1,ASC(MID$#(CH$#,K,1)) 


NEXT K 

RETURN 

REM ---- INIT CARAC GRAPHIQUES ---------------- 
AM=46080+8B%C 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 
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3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du ciel 


Remplacez, en 5050, la valeur 6 (dans PA — 6) par un nombre de votre 
choix, entre O et 6. (Si vous utilisez 7 qui correspond à blanc, l’arrivée d’une 
nouvelle vague ne se signalera plus par un changement de couleur). 


2. Pour modifier la couleur des soucoupes et de la base 


Remplacez, en 5050, la valeur 1 (dans IN — 1) par un nombre de votre 
choix (entre O et 7). 


3. Pour modifier le nombre de soucoupes par vague 


Vous pouvez agir à la fois sur le nombre de soucoupes par ligne (actuelle- 
ment 5) et sur le nombre de lignes par vague (actuellement 2). 


Pour modifier le nombre de soucoupes par ligne, remplacez, en 5020, la 
valeur 5 (dans EV — 5) par le nombre de votre choix. 


Pour modifier le nombre de lignes par vague, remplacez, en 5020, la valeur 
2 (dans LV = 2) par un nombre de votre choix. 


4. Pour modifier le rythme de jeu et le rendre ainsi plus facile ou plus 
difficile 


Vous pouvez agjir à la fois sur le délai initial séparant deux vagues (actuelle- 
ment 160) et sur le coefficient réducteur de délai (actuellement 0.975). 


Pour modifier le délai initial séparant deux vagues, remplacez, en 5020, la 
valeur 160 (dans DV — 160) par un nombre de votre choix. 


Pour modifier le coefficient réducteur, remplacez, en 5020, la valeur .975 
par un nombre de votre choix ne dépassant pas 1. Un nombre supérieur à 
0.975 correspondra à une partie dont le rythme s'accélérera moins rapide- 
ment. Un nombre plus petit correspondra à une accélération plus rapide du 
rythme. 


Notez que si vous souhaitez que le délai séparant deux vagues soit cons- 
tant, il vous suffit de choisir un comme coefficient. 
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5. 


Pour utiliser une poignée de jeu 


Chargez le programme ‘ MANETTE 1" comme décrit en annexe. Branchez 
la poignée du côté droit et remplacez les lignes 1010 à 1030 par: 


1010 DLa=PEEK(#400) 

1020 IF DL=191 THEN RETURN 

1025 IF (DL AND 32)=0 THEN XO=XT: YO=VYT-1s PLOT X0,YO,CO: RETURN 
1030 XN=XT+((DL AND 1)=0)-((DL AND 2)=0) 


4. Description du programme 


a) 


b) 


Techniques utilisées, décrites en annexe 


Hasard. 

Création de caractères graphiques. 
Lecture rapide du clavier. 

Écriture directe en mémoire d'écran. 
SCROLL. 

Poignées de jeu (facultatif). 


Le programme principal 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 260 répètent les instructions 125 à 250 (déroulement d'une partie) 


jusqu'à ce que vous précisiez que vous ne désirez plus rejouer: 
125 appelle le sous-programme d'initialisation d'une partie. 
130 fait apparaître quatre rangées d'envahisseurs. 


140-190 sont répétées jusqu'à ce que les envahisseurs aient atteint 
votre base (FI = 1): 


140-145 font apparaître une nouvelle vague (deux rangées de 
soucoupes) en vérifiant qu'elle n'atteint pas votre base. 

147 affiche le délai prévu. 

150-170 répètent un nombre de fois correspondant au délai prévu 
l'appel du sous-programme de déplacement de la base de tir et 
l'appel du sous-programme de déplacement de missile. 
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200-230 actualisent le meilleur score, l'affichent et appellent le sous- 
programme de fin de partie. 


240-250 vous demandent si vous désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (5000-5160) 


5005 supprime le bip du clavier et le curseur d'écran. 
5010 fixe les limites du domaine de jeu. 


5020 initialise le délai séparant deux vagues, fixe le nombre d'envahis- 
seurs par ligne, le nombre de lignes par vague et le coefficient de 
réduction de délai. 


5046 initialise le meilleur score. 
5050-5060 fixe les couleurs d'encre et de fond. 


5065-5120 fabriquent les caractères graphiques représentant la base de 
tir, les missiles et les soucoupes. 


5130 fixe la couleur d'encre utilisée sur la ligne supérieure. 


d) Le sous-programme d'initialisation d'une partie (4000-4060) 


4010 efface l'écran. 

4015-4017 affichent les “titres” en ligne supérieure. 
4018 affiche le meilleur score. 

4020-4030 dessinent la base de tir. 


4040 initialise le délai séparant deux vagues, le score, l'indicateur de fin de 
partie et le nombre de soucoupes détruites. 


4050 initialise le tableau: nombre de soucoupes par ligne. 


e) Le sous-programme de déplacement de la base de tir (1000- 
1060) 


1010 examine le clavier. 


1020 initialise un tir de missile si la barre d'espace a été pressée et qu'au- 
cun tir n'est en cours. 
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1030 calcule la nouvelle position de la base. 
1040 vérifie que la base ne sort pas des limites. 


1050 dessine la base dans sa nouvelle position. 


f) Le sous-programme de déplacement de missile (1500-1590) 


1510 examine si un tir est en cours. 
1520 définit la nouvelle position du missile et efface l'ancien. 


1530 examine si le missile sort de l'écran et si oui remet à zéro l'indicateur 
‘tir en cours”. 


1540 examine si une soucoupe est atteinte et, si ce n'est pas le cas, 
dessine le missile dans sa nouvelle position. 


1550-1600 cas où une soucoupe est atteinte: 
1550 émet un bruit et efface la soucoupe. 


1560-1580 actualisent le nombre de soucoupes par ligne, le score et 
le nombre de soucoupes présentes. 


1590 remet à zéro l'indicateur ‘’tir en cours”. 


g) Le sous-programme ‘nouvelle vague d'envahisseurs'" (2000- 
2110) 


2005 rend l'écran blanc. 
2010 supprime le tir en cours s'il y a lieu. 


2020 vérifie que la dernière ligne ne contient pas d'envahisseurs. Si ce 
n'est pas le cas, le sous-programme de fin de partie est appelé. 


2030-2045 met à jour le tableau nombre d'envahisseurs par ligne et le 
nombre d'envahisseurs présents sur l'écran. 


2050 fait défiler le contenu de l'écran vers le bas (scroll) et redessine la 
base de tir. 


2060-2100 place au hasard cinq envahisseurs en bas de l'écran. 


2105 redonne à l'écran sa couleur d'origine. 
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5. Liste des variables 


X1,X2,Y1,Y2 limites du domaine de jeu 


DV 

EV 

LV 

TE 
NE(26) 


MS 
PA 
IN 
CT 
co 
CE 
AD 


ID 
XT,YT 
XO,YO 
DC 


SC 
FI 
NT 


DN 


XN 
YN 


délai maximum séparant deux vagues 

nombre d'envahisseurs par ligne 

nombre de lignes formant une vague 

coefficient réducteur du délai séparant deux vagues 


tableau contenant le nombre de soucoupes de chaque ligne 
d'écran 


meilleur score 

couleur de fond 

couleur d'encre utilisée pour les soucoupes et la base de tir 
code ASCII du caractère représentant la base de tir 
code ASCII du caractère représentant le missile 

code ASCII du caractère représentant les soucoupes 


adresse mémoire correspondant au début de la ligne 
supérieure 


désignation d'un emplacement courant en ligne supérieure 
coordonnées de la base de tir 
coordonnées du missile. Si YO — YT aucun tir n'est en cours 


délai courant prévu entre deux vagues, compte tenu du 
nombre d'envahisseurs présents sur l'écran 


score 


indicateur de fin de partie 

0: cas normal 

1: fin de partie 

nombre d'envahisseurs présents sur l'écran 


délai courant prévu entre deux vagues, compte non tenu du 
nombre d'envahisseurs présents sur l'écran 


nouvelle abscisse de la base de tir 
nouvelle ordonnée du missile 


Variables auxiliaires 


AM I 
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XX K L CH$ X DL 


19 
Alunissage 


1. Le jeu 


Serez-vous capable de poser une fusée en douceur sur la lune. C'est ce que 
va vous révéler ce jeu. 


Vous êtes aux commandes d'une fusée. Au départ, elle se trouve, immobile, 
à 100 mètres d'altitude. Sous l'effet de la pesanteur, votre fusée descend 
de plus en plus rapidement vers la surface. Heureusement vous disposez de 
“’rétro-fusées”" que vous pouvez faire fonctionner quand vous le souhaitez 
pour réduire votre vitesse de chute. Vous pouvez même, si vous n'y prenez 
garde, changer le sens de votre vitesse et vous éloigner de la surface de la 
lune. Toutefois, ce n’est pas dans votre intérêt car votre carburant est limité 
et vous risquez fort dans ce cas de ne plus pouvoir amortir la chute finale. 


Les seules informations qui vous sont fournies par les instruments de bord 
sont : 


— altitude, 
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— vitesse, 
— niveau de carburant. 


Au début du jeu, vous voyez se dessiner les trois instruments sur l'écran: 


© à gauche: le compteur de vitesse gradué de O à 5. La vitesse y est repré- 
sentée par une bande de couleur verte quand vous descendez et bleue 
quand vous montez, 


e au centre: l'altimètre gradué de O à 10. O représente le niveau de la 
surface lunaire et 10 l'altitude dont vous partez (100 m si vous ne 
modifiez pas le programme). L'altitude y est représentée par une bande 
jaune. Si, par hasard, vous dépassez votre altitude de départ, le pro- 
gramme fonctionnera normalement. Seul votre altimètre restera bloqué 
au maximum tant que vous ne serez pas redescendu au-dessous de 
100 m. Quand votre altitude tombera au-dessous de 10 m, elle sera 
représentée par une bande violette, avec une précision dix fois plus 
grande. Autrement dit, le maximum correspondra alors à 10 m. Cette 
particularité doit vous permettre de mieux contrôler la phase finale de 
l'alunissage. 


e à droite: votre jauge de carburant. Le niveau y est matérialisé par une 
bande rouge. 


Dès que le jeu est commencé, votre fusée se met à descendre. Vous êtes 
renseigné sur sa vitesse de façon visuelle grâce au compteur et égale- 
ment de façon sonore grâce à un son dont la hauteur (fréquence) aug- 
mente avec la vitesse. Vous pouvez ainsi quitter le compteur des yeux 
tout en restant renseigné de ce qui se passe. 


Vous déclenchez les rétro-fusées grâce à la barre d'espace. Celles-ci fonc- 
tionnent tant que vous maintenez la pression. 


Quand votre altitude atteint zéro, le programme considère que vous avez 
aluni. || vous communique la vitesse avec laquelle vous avez pris contact 
avec le sol et le niveau de carburant restant. || vous fournit un score qui 
dépend de ces deux valeurs. Toutefois, si votre vitesse de contact est supé- 
rieure à 2, le programme vous fera entendre l'explosion de votre fusée et 
votre score sera nul. Dans les deux cas, vous verrez apparaître le meilleur 
score; 


REMARQUE: Par souci de simplification des mesures des instruments de 
bord, les valeurs fournies pour la vitesse ne correspondent pas à la réalité 
lunaire. Pour les puristes, disons que la vitesse indiquée serait exacte si l'on 
divisait l'altitude indiquée par environ 5. 
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2. Le programme 


100 
110 
120 
130 
135 
140 
150 
160 
170 
180 
185 
190 
195 
200 
210 
220 
230 
235 
240 
250 
260 
270 
280 
290 
300 
4000 


REM HH## HN ALUNISSAGE 4444646 de De EE D DE AE DE DEN EDEN EN 
GOSUB 9000 
REPEAT 


GOSUB 5000 
PLAY 1,0,0,0 
REPEAT 

CLaPEEK(#208) 

IF CL=#84 AND CA>0 THEN Vz=V+D2r CA =CA-1 ELSE V=V-Di 
H=H+V: GOSUB 4000 
UNTIL H<O 
VæINT(V#1000)/1000 

IF V>=-2 THEN GOTO 200 

PRINT'vous vous ecrasez à "ÿ-V;" m/s":EXPLODE:SC=0:GO0TO 250 
PRINT "vous alunissez à "}-V;" m/s" 

IF Vé-1 THEN Kz=-1/(2%V) 

IF Voz=-1 AND V<=0.1 THEN K=1+V/2 

IF V>-0.1 THEN K=i 

PLAY 0,0,0,0 
SCæINT(K#200+CA) 
PRINT "SCORE"3}6C;"M-SCORE";MSÿ "CARBURANT"; CA 

IF SC)>MS THEN MS8=26C 
WAIT 1004: PRINT "voulez vous rejouer"; 
GET R$: GET R$ 


UNTIL R$<>"0" 
END 


REM ----- SP VISUALISATION DE B,H,CA AVEC SONO ------ 


4010 HX=INT(-H1#V/VM)a CX=Ci 


4020 
4030 
4040 


IF V0 THEN CX=C2: HX=-HX 
IF HX2Hi THEN HX=Hi 
CURSET X1+6,Y1,0% IF HX>=1 THEN FILL HX,L1/6-2,CX 


4050 IF Hi-HX>=1 AND HX20 THEN FILL Hi-HX,L1/6-2,16 


4060 
4070 
4075 
4080 
4085 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 


HX=H1#H/HMe CXa2CSe IF HX2H1 THEN HX=Hi 

IF HÇHM/10 THEN HX=10#HX1 CX=C4 

HX=INT(HX) 

CURGSET X2+6,Y1,0 

IF Hi-HX>21 AND HX220 THEN FILL Hi-HX,L2/6-2,16 
IF HX>=1 THEN FILL HY\,L2/6-2,CX 
HX=INT(HI#CA/CM) 

CURGET X3+6,Y1,0% IF Hi-HX>=1 THEN FILL Hi-HX,L3/6-2,16 
IF HX>s=1 THEN FILL HX,L3/8-2,C5 

IF V<0.01 AND V>-0,.01 THEN 4160 

F=200/Vr IF FCO THEN F=-F 

SOUND 1,F,5 

RETURN 
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35000 REM ----- SP INITIALISATION D'UNE PARTIE --------- 
93005 V=0: H=HM: CA=CM 

5010 GOSUB 4000 

5020 PRINT: PRINT: PRINT 

3030 RETURN 

8000 REM ----- SP TRACE CADRE EN X,Y DE DIMENSION H,L -------- 
8010 CURSET X-1,Y-1,1 

8020 DRAW L+2,0,1: DRAW O0,H+1,1 

8030 DRAW -(L+2),0,11 DRAW 0,-(H+1),1 

8040 RETURN 

9000 REM ----- SP INITIALISATIONS DU JEU -------------- 
9010 PA=0: IN=3: CLS: PAPER PA : INK IN 

9020 MS=01 Di=0,1: D2=0,05 

9030 Ci=1b+2: C2=16+b1 CS=16+31 CAzib+5: CS=i6+i 

9040 PG=0: IG=71 HIRES: PAPER PGr INK IG 

9050 X1=24: X2=108: X3=180 

9060 Yi=is H1=190: Lis4is: L2=41: L3=35 

9070 VM=5: HM=100: CM=80 

9080 Ke=Xis Y=Vi: La=Li: H=His GOSUB 8000 

9090 X=X2: Y=Yi: LæLl21 H=Hi: GOSUB 8000 

9100 X=X3: Y=Vi: LeL3: H=Hi: GOSUB 8000 

9105 X=X1-12 

9110 FOR V=1i TO VM 

9120 1 YaY1+V#Hi/VM 

9130 1 CURSET X,Y-8,01 CHAR ASC(MID#(BTR#(V),2,1)),0,1 
9140 & CURSET X+6,Y,1: DRAW 6,0,1 

9150 NEXT V 

9160 FOR I=0 TO 9 

9170 x Y=Yi+Hi#(10-1)/10 

9180 : CURSET X2-6,Y,0: DRAW 6,0,1 

9190 : CURSET X2-12,Y-8,0: CHAR ASC(MID$#(STR#(1),2,1)),0. 
9200 NEXT I 

9210 CURSET X1+L1-5,Y1,0: FILL H1,1,16 

9220 CURSET X2+L2-5,Y1,04: FILL H1,1,16 

9230 CURSET X3+L3-5,Y1,0: FILL H1,1,16 

9240 POKE #26A,10 

9250 RETURN 
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3. Description du programme 


a) 


b) 


Techniques utilisées, décrites en annexe 


Lecture rapide du clavier. 
Configuration clavier/écran 


Le programme principal (100-300) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 290 répètent les instructions 130 à 280 (déroulement d'une partie) 


jusqu'à ce que vous disiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 


140 et 180 répètent les instructions 150 à 180 qui ‘déplacent la 
fusée” jusqu'à ce que vous ayez aluni: 
150 examine le clavier. 
160 actualise la vitesse et éventuellement le niveau de carburant. 


170 actualise l'altitude et appelle le sous-programme qui présente 
les différentes informations sur vos instruments de bord. 


185 arrondit la vitesse d'alunissage à 3 décimales (avant de la présen- 
ter sur l'écran). 


190 examine votre vitesse d'alunissage. 


195 vous dit à quelle vitesse vous vous êtes écrasé (si celle-ci est 
supérieure à 2 m/s). 


200-240 calculent votre score, lorsque votre vitesse d'alunissage ne 
dépasse pas 2 m/s. 


250-260 affichent votre score, le meilleur score, votre vitesse et votre 
niveau de carburant et actualisent le meilleur score. 


270-280 vous demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9250) 


9010 fixe les couleurs de fond et d'encre utilisées pour le bas de l'écran. 


9020 initialise le meilleur score et fixe les variations élémentaires de 


vitesse. 
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9030-9040 fixent les différentes couleurs employées en graphique haute 
résolution (HIRES). 


9050-9060 fixent les emplacements et les dimensions des instruments de 
bord. 


9070 fixe la vitesse maximum indiquée par le compteur, l'altitude initiale et 
le niveau initial de carburant. 


9080-9100 dessinent les trois cadres des instruments de bord (en utilisant 
le sous-programme 8000). 


9105-9150 trace la graduation du compteur de vitesse. 
9160-9200 trace la graduation de l'altimètre. 
9210-9230 place l'attribut ‘fond noir” dans les parties droites des cadres. 


9240 supprime le bip du clavier et le curseur de l'écran. 


d) Le sous-programme d'initialisation d’une partie (5000-5030) 


5005 initialise la vitesse, l'altitude et le niveau de carburant. 


5010 appelle le sous-programme présentant les différentes informations 
sur les instruments de bord. 


5020 efface le bas de l'écran. 


e) Le sous-programme de présentation des informations (4000- 
4160) 


4010-4050 visualisent la vitesse : 
4010-4020 déterminent la hauteur de la bande et sa couleur. 
4030 examine si la vitesse dépasse la vitesse maximum affichable. 
4040-4050 effectuent le coloriage de la bande. 


4060-4090 visualisent l'altitude : 
4060-4075 déterminent la hauteur de la bande et sa couleur. 
4080-4090 effectuent le coloriage de la bande. 


4100-4120 visualisent le niveau de carburant. 
4130-4150 adaptent le son émis à la vitesse. 
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4. Liste des variables 


PA 
IN 
MS 
D1 
D2 


c1,Cc2 


C3,C4 


C5 
PG 
IG 


X1,X2,X3 
Y1 

H1 
L1,L2,L3 
VM 

HM 

CM 

V 


H 
CA 
SC 


couleur de fond du bas de l'écran 

couleur d'encre employée pour le bas de l'écran 
meilleur score 

variation élémentaire de la vitesse, en cas de chute libre 


variation élémentaire de la vitesse quand les retro-fusées 
sont en action 


attributs servant à colorier la bande du compteur de vitesse. 
C1 correspond à une vitesse dirigée vers le bas et C2 à une 
vitesse dirigée vers le haut. 


attributs servant à colorier la bande de l'altimètre. C3 corres- 
pond à la présicion normale et C4 à une précision multipliée 
par dix. 


attribut servant à colorier la bande de la jauge de carburant 
couleur de fond de la partie graphique 


couleur d'encre utilisée pour les cadres des instruments de 
bord 


abscisse du côté gauche de chacun des instruments de bord 
ordonnée commune du haut des instruments de bord 
hauteur des trois instruments de bord 

largeur de chacun des trois instruments de bord 

vitesse maximum indiquée par le compteur 

altitude de départ 

niveau initial du carburant 


vitesse de la fusée (négative quand la fusée descend, posi- 
tive quand elle monte) 


altitude 
carburant restant 
score 


Variables auxiliaires 


X Y L 


CL K R$ 


HV (dans sous-programme 9000) 


159 


20 
Billard 


1. Le jeu 


Vous allez pouvoir vous adonner aux joies de ce jeu, sans risquer de déchi- 
rer le tapis d'un coup de canne malencontreux. 


Le but consiste à lancer votre boule, grâce à une canne, de manière à ce 
qu'elle vienne toucher une autre boule après deux rebonds sur les bords du 
billard. Si vous touchez sans rebond (ce qui est très facile) ou après un seul 
rebond, vous ne marquez aucun point. 


Le programme commence par vous dessiner un tapis de billard (vert) 
entouré d'une bordure violette. Vous voyez apparaître deux boules, en des 
emplacements quelconques. L'une d'entre elles est accompagnée d'une 
“canne de billard” représentée par un trait. Vous allez tout d'abord devoir 
mettre en place la canne dans la position qui vous semble la meilleure pour 
l'objectif visé (toucher l’autre boule en deux rebonds). Vous utilisez pour 
cela les touches fléchées qui vous donnent deux vitesses de déplacement 
de la canne (autour de la boule): 


+: déplacement lent dans le sens inverse des aiguilles d'une montre. 


|: déplacement rapide dans le sens inverse des aiguilles d'une montre. 
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—: déplacement lent dans le sens des aiguilles d'une montre. 


À: déplacement rapide dans le sens des aiguilles d’une montre. 


Quand la position vous paraît correcte, vous ‘tirez’ en pressant la barre 
d'espace. Vous entendez alors le son de la canne heurtant votre boule puis 
celle-ci se déplace sur le tapis. Chaque rebond se signale par un son 
approprié. 


Si vous touchez la boule dans les conditions requises vous serez récompen- 
sés par le jeu d'un accord parfait (notez, au passage, les possibilités 
sonores de l'ATMOS. 


Douze coups vous seront ainsi proposés. A la fin vous obtiendrez un score 
qui dépendra du nombre de coups réussis et du temps passé à mettre votre 
canne en place. 


Le programme affiche en permanence le temps qui s'écoule pendant la 
mise en place de la canne, le numéro du coup et le nombre de coups 
réussis. 


2. Le programme 


100 REM #xw#####NwMXe BILLARD #34 HEUEUEUE DEEE UE NE 

120 GOSUB 9000: GOSUB 8000 

125 GOSUB 9500 

130 FOR NB=i TO NC 

140 : GOSUB 7000 

150 : REPEAT 

160 : XN=X+CTs YN=Y+ST 

170 : IF ABS(XC-XN)C6 AND ABS(YC-YN)<8 THEN TCzi 
180 « IF XNCX1+4 OR XND2X2-4 OR YN<Yi+4 OR YN>Y2-4 THEN GOSUB 2000 
190 : CURSET X-3,Y-4,0: CHAR CB,0,2 

200 « X=XNs YVaYNs CURSET X-3,Y-4,0: CHAR CB,0,1 

210 s UNTIL TC=i OR NReRX+1 

220 1 GOSUB 4000 

230 NEXT NB 

240 WAIT 100: SC=INT(NT#1000-5#T) 

250 IF S6C<0 THEN SC=0 

260 PRINT CHR$(13);CHR$ (13) 

290 PRINT " VOTRE SCORE EST 1"}6C 

300 IF 6SC<MS THEN PRINT "LE MEILLEUR SCORE RESTE:"3MS 
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310 

320 

330 

340 

350 

360 

370 

2000 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4200 
8000 
6010 
6020 
6030 
6040 
6060 
6070 
6080 
6090 
8100 
8120 
6150 
6170 
6190 
b200 
6300 
6510 
6520 
6530 
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IF SC>2MS THEN PRINT "LE MEILLEUR SCORE ETAIT"';MS 1 MG6=8C 
WAIT 100 
PRINT "voulez vous rejouer (0/N)?"; 
GET R$: GET R$ 
IF R$="0" THEN GOTO 125 
PRINT CHR$(6);CHR$#(17)y 
END 
REM ---- SP DEPLACEMENT AVEC REBOND ------------- 
IF XNCX1+4 THEN XN=X1+41 NRaNR+ir CT=-CT 
IF XN2X2-4 THEN KXNeX2-41 NReNR+ir CTm-CT 
IF YNCY1+4 THEN YNeYi+4r NRaNR+i1 STa-8T 
IF YN>Y2-4 THEN YN=Y2-45 NR=NR+11 STu-G6T 
CURSET X-3,Y-4,0: CHAR CB,0,2 
X=XNs Y=YNs CURGET X-3,Y-4,01 CHAR CB,0,1 
SOUND 1,10000,0% PLAY 1,0,1,200 
RETURN 
REM ---= SP FIN D'UN COUP --mmmmmmmmmmm—— 
IF TC=1 THEN SOUND 1,4000,01 PLAY 1,0,1,100 
IF TC<)>1 OR NRÇDRX THEN 4100 
MUSIC 1,3,1,01 PLAY 1,0,1,5001 WAIT 35 
MUSIC 2,3,5,04 PLAY 2,0,1,500: WAIT 35 
MUSIC 3,3,8,0: PLAY 4,0,1,500: WAIT 30 
PLAY 7,0,1,15001 WAIT 60 
NTENT+1 
FOR I=i TO 221 PRINT CHR$#(9)yu NEXT I! 
PRINT NT;CHR$#(13)y 
CURSET XC-3,YC-4,01 CHAR CB,0,0 
CURSET X-3,Y-4,0: CHAR CB,0,0 
RETURN 
REM ---- SP MISE EN PLACE DE LA CANE ------------- 
CURSET X-3,Y-4,0: CHAR CB,0,1 
TeT+i: GOSUB 6500 
XEmX+LC#COS(TH)1 YEmY+LC#SIN(TH) 
CURSET X,Y,0: DRAW XE-X,YE-Y,1 
CL=PEEK(#208) 
IF CLle#38 THEN T=T+0.3: GOSUB 6500: GOTO 6060 
IF Clz#84 THEN 6150 
TH=TH+((CLe#AC)-(CLæ#BC)+7#((CLæ=#B4)-(CLe#9C)))#DT 
CURSET X,Y,0: DRAW XE-X,YE-Y,0 
GOTO 6010 
CURSET X,Y,01 DRAW KE-X,YE-Y,0 
CURSET X-3,Y-4,0: CHAR CB,0,1 
SOUND 1,28,04 PLAY 0,1,1,400 
RETURN 
REM ---- 6P AFFICHAGE DU TEMPS ----------- 
PRINT INT(T); 
PRINT CHR$(13); 
RETURN 


7000 
7010 
7015 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8200 
9000 
9005 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9200 
9500 
9505 


REM ----- SP DEBUT D'UN COUP ------------------- 
FOR Ixi TO 10: PRINT CHR$#(9)3;3 NEXT I 
PRINT NB;CHR#(13); 
XC=X1+5+INT(RND(1)#(X2-X1-10)) 
VC=Y1+5+INT(RND(1)#(Y2-Y1-10)) 

CURSET XC-3,YC-4,0 

CHAR CB,0,1 
XmX1+5+LC+INT(RND(1)#(X2-X1-10-2#L0)) 
VaY1i+S+LC+INT(RND(1)#(VY2-V1-10-2#LC)) 
IF SQR ((X-XC)"2+(V-YC) 2)<eLC+5 THEN 7060 
CURSET X-3,Y-4,0 

CHAR CB,0,1 

TC=0: NR=0 

GOSUB 6000 

CTu-DE#COS(TH)1 STm-DE#SIN(TH) 

RETURN 

REM ----- SP DESSIN DU BILLARD --------------"---- 
Xi=121 \2=228: Vi=ib: Y2=184 

INs4: PAz2: Bi=128: B2=165 

HIRES 

CURGET 0,0,0 

FILL 200,1,B1+PA+16 

CURSET 6,0,0 

FILL 200,1,B1+IN 

CURSET 12,0,0 

IF X1312 THEN FILL 200,(X1-X2)/6,B1 
CURSET X1,0,0 

FILL Y1,(240-YV1)/6,B2 

CURSET X1,V2,0 

FILL 200-Y2,(X2-X1)/6,B2 

CURSET X2,0,0 


FILL 200,(240-K2)/6,B1 

POKE #26A,10 

RETURN 

REM ----- 8P INITIALISATIONS DU JEU ------------- 
PAPER 63 INK 4: NC=12: MS=0: R\=2 

LC=40: DT=0.02 

DE=G1 THmb, 2B#RND(1) 

CB=64 

DATA 12,30,63,83,63,63,30,12 

AM=46080+8%CB 

FOR I=0Q TO 7 

t READ XX: POKE AM+I,XX 

NEXT I 

RETURN 

REM ----- 6P INITIALISATION D'UNE PARTIE ---------- 
Ta0: NT=0: PRINT CHR#(13)} 
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9510 FOR I=1 TO 361 PRINT " "yeNEXT I 

9540 PRINT " TEMPS BOULE COUPS REUSSIS" 
9550 FOR I=i TO 36: PRINT " ";:NEXT I 

9560 PRINT CHR$(13); 

9370 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur des boules 


Remplacez, en 8020, la valeur 4 (dans IN — 4) par un nombre de votre 
choix (O à 7). 


2. Pour modifier la couleur du ‘‘tapis'’ 


Remplacez, en 8020, la valeur 2 (dans PA — 2) par un nombre de votre 
choix (0 à 7). Évitez toutefois d'employer la même couleur pour le tapis et 
les boules ! 


3. Pour modifier le nombre de coups par partie 


Remplacez, en 9005, la valeur 12 (dans NC = 12) par un nombre de votre 
choix. 


4. Pour rendre le jeu plus facile ou plus difficile 


Vous pouvez agir sur le nombre obligatoire de rebonds. Pour cela, il vous 
suffit de remplacer, en 9005, la valeur 2 (dans RX = 2) par celle de votre 
choix. Ainsi: 


e O conduira à un jeu extrêmement facile puisqu'aucun rebond ne sera 
nécessaire. Cela peut vous servir, au début, à vous entraîner. 


e 1 conduira à un jeu assez facile ne demandant qu'un seul rebond. 
e 2 correspond au programme actuel. 


e 3 conduira à un jeu très difficile puisque trois rebonds seront nécessaires. 
etc. 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran 


b) Le programme principal (100-370) 


120 appelle les sous-programmes d'initialisation du jeu et de dessin du 
billard. 


125-350 sont répétées jusqu'à ce que vous précisiez que vous ne sou- 
haïitez plus rejouer: 
125 appelle le sous-programme dl'initialisation d'une partie. 


130 et 230 répètent douze fois les instructions 140 à 220 qui cons- 
tituent le jeu d'un coup: 


140 appelle le sous-programme de début d'un coup (dessin des 
boules et mise en place de la canne). 


150 et 210 répètent le déplacement de votre boule jusqu'à ce 
qu'elle touche l'autre boule ou que le nombre de rebonds dépasse 
deux: 


160 détermine les nouvelles coordonnées de votre boule. 
170 examine s'il y a contact entre les deux boules. 


180 examine s'il y a rebond, et dans ce cas appelle le sous- 
programme “rebond”. 


190-200 déplacent votre boule. 
220 appelle le sous-programme de fin d'un coup. 


240-310 calculent votre score, l'affichent en même temps que le 
meilleur score qui est actualisé. 


320-340 vous demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9200) 


9005 fixe les couleurs de la bande inférieure de l'écran, fixe le nombre de 
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coups d'une partie, le nombre de rebonds requis et initialise le meil- 
leur score. 


9020-9030 fixent la longueur dela canne, sa position initiale et les dépla- 
cements élémentaires. 


9035 supprime le bip du clavier et le curseur d'écran. 


9040-9090 fabriquent le caractère graphique représentant les boules. 


d) Le sous-programme de dessin du billard (8000-8200) 


8010 fixe les coordonnées du tapis de jeu. 


8020 fixe les couleurs du billard et les codes des caractères utilisés pour 
représenter les bords. 


8030 place l'ATMOS en mode graphique haute résolution. 
8040-8150 dessinent les bords du billard. 


e) Le sous-programme d'initialisation d’une partie (9500-9570) 


9505 initialise le compteur de temps et le nombre de coups réussis. 


9510-9560 affichent les “titres” de la bande inférieure (qui n’est pas en 
haute résolution, et dans laquelle on peut écrire par PRINT). 


f) Le sous-programme de début d'un coup (7000-7140) 


7010-7015 affichent le numéro du coup. 


7020-7050 dessinent la boule ‘’cible”’, après avoir tiré sa position au 
hasard. 


7060-7100 tirent au hasard la position de votre boule, en tenant compte 
de la longueur de la canne, et la dessinent. 


7110 initialisent l'indicateur ‘’touché”’ et le nombre de rebonds. 
7120 appelle le sous-programme de mise en place de la canne. 


7130 détermine les déplacements élémentaires de la boule. 
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g) Le sous-programme de mise en place de la canne (6000-6210) 


6010-6120 sont répétées jusqu'à ce que vous pressiez la barre d'espace: 
6010 redessine la boule. 
6020 actualise le temps. 
6030-6040 dessinent la canne. 
6060-6070 attendent qu'une touche du clavier soit pressée. 
6080 examine s'il s'agit de la barre d'espace. 


6090 détermine la nouvelle position de la canne en fonction de la 
touche pressée. 


6100 efface la canne. 
6150 efface la canne. 
6170 redessine la boule. 


6190 fait entendre le bruit de la canne qui frappe la boule. 


h) Le sous-programme de déplacement avec rebond (2000-2100) 


2030-2060 déterminent la nouvelle position de la boule (en évitant qu'elle 
ne franchisse le bord) et actualisent les déplacements élémentaires, 
en fonction du bord sur lequel rebondit la boule. 


2070 efface la boule de sa position actuelle. 
2080 dessine la boule dans sa nouvelle position. 
2090 émet le bruit du rebond. 


i) Le sous-programme de fin d’un coup (4000-4200) 


4010 fait entendre un bruit de choc, s'il y a lieu. 
4020 examine si le coup est réussi où non. 


4030-4090 font retentir, en cas de coup réussi, les notes do, mi, sol suivies 
de l'accord formé de ces trois notes puis actualisent le nombre de 
coups réussis. 


4100-4110 effacent les deux boules. 
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5. Liste des variables 


NC 
MS 
RX 

LC 

DT 

TH 

DE 
CB 

T 

NT 
X1,X2,Y1,Y2 
IN 

PA 

B1 

B2 
XC,YC 
X,Y 
TC 


NR 

CT 

ST 
XE,YE 
XN,YN 
SC 


nombre de coups d'une partie 

meilleur score 

nombre de rebonds requis 

longueur de la canne 

déplacement angulaire élémentaire de la canne 
angle formé par la canne avec l'axe horizontal 
déplacement élémentaire de la boule 

code ASCII du caractère représentant les boules 
temps écoulé pendant la mise en place de la canne 
nombre de coups réussis 

coordonnées du ‘tapis du billard 

couleur des boules et de la canne 

couleur du tapis 

caractère représentant les bords verticaux du billard 
caractère représentant les bords horizontaux du billard 
coordonnées de la boule cible 

coordonnées de votre boule 


indicateur ‘boule cible touchée” 
0: pas de boule touchée 
1: boule cible touchée 


compteur du nombre de rebonds, au cours d'un même coup 
déplacement horizontal élémentaire de votre boule 
déplacement vertical élémentaire de votre boule 
coordonnées de l'extrémité de la canne 

coordonnées du prochain emplacement de votre boule. 
score 


Variables auxiliaires 


AM I XX CL 
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21 


Dictée musicale 


1. Le jeu 


Voici un jeu qui va vous permettre de révéler ou de développer vos talents 
de musicien. 


Il s'agit bel et bien d'une dictée puisque le programme va vous faire 
entendre des notes qu'il vous faudra reconnaître en les plaçant sur une 
portée musicale. La pratique répétée d'un tel jeu peut vous permettre d'affi- 
ner considérablement votre “oreille”. 


Au départ, vous voyez apparaître une portée avec, en jaune la note do. Le 
programme vous fait alors entendre le son correspondant, en transformant 
la note en rouge, pendant tout le temps où elle est jouée. Une deuxième 
note vous est alors jouée. Il vous faut la reconnaître en plaçant correcte- 
ment une note sur la portée. Pour cela, vous déplacez la dernière note jaune 
dessinée par le programme (à un endroit toujours inexact) à l'aide des 
touches ” ? ” et ” |’. Quand vous pensez l'avoir bien située, vous 
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appuyez sur la barre d'espace. Si votre réponse est correcte, vous marquez 
un point. Dans le cas contraire, votre note est effacée tandis qu'un ”’zap” 
retentit et la note correcte est dessinée. 


Le programme va alors vous faire deviner une troisième note, en vous 
faisant entendre à nouveau les deux notes qui figurent déjà sur la portée. …À 
chaque fois, la note jouée se signale en ‘’rougissant”. 


Le jeu se poursuit ainsi, de note en note, de devinette en devinette. Toute- 
fois, pour que tout cela ne devienne pas trop lent, à partir de la sixième 
note, le programme se contente de vous faire entendre les cinq dernières 
notes seulement. Cela devrait vous fournir une préparation sonore suffi- 
sante pour trouver la dernière note entendue. Si ce n'était pas le cas, vous 
verrez au paragraphe 3, comment modifier cela. 


Le programme vous propose 27 niveaux de jeu, grâce à deux paramètres 
que vous pouvez choisir: 


a) Le domaine dans lequel vont évoluer les notes. Trois options possibles : 
1 — de “do” à sol”: cela fait donc 5 notes en tout: do, ré, mi, fa et sol. 
2 — de ‘do’ à ‘do’: cela correspond donc à 8 notes d'un octave. 


3 — de “do” à “la”: il faut comprendre du do d'un octave au la de 
l'octave supérieur. Cela correspond donc à 13 notes. 


02 


b) L'intervalle séparant deux notes successives. || peut varier de un à neuf. 


A titre d'exemple, si vous choisissez la valeur 1, la note émise après un mi 
ne pourra être que ré ou fa. 


Par contre, si vous choisissez la valeur 3, la note émise après un mi pourra 
être: ré, do, fa ou sol. 


Le programme affiche en permanence, le numéro de la note à deviner 
(nombre de notes déjà jouées), votre score (nombre de notes reconnues) et 
le meilleur score du niveau. (Voir photo 8 hors texte: Vue de l'écran pen- 
dant le déroulement du jeu). 
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2. Le programme 


100 
110 
120 
130 
140 
150 
170 
180 
190 
195 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
295 
300 
310 
315 
320 
330 
340 
350 
360 
370 
380 
390 
2000 
2010 
2020 
2030 
2040 
3000 
3010 
3020 
3030 
4000 
4020 


REM ###k#tutuxuxx DICTEE MUSICALE 44646466 eee EU UE UE 
REM 

GOSUB 9000 

REPEAT 


GOSUB 8000 
NTæis NN=i: CO=12: GOSUB 3000: CD=i: GOSUB 5000 
NJ({)=i 
FOR N=2 TO NX 

GOSUB 2000 

ND=eN-5: IF ND<1 THEN NDei 

FOR NNeND TO N-1 

GOSUB 3000 

NTæNJ (NN) 

CD=31 CO=13: GOSUB 5000: GOSUB 4000 

CD=31 CO=121 GOSUB 5000 

NEXT NN 

CXæi1 IF RND(1)30,5 THEN CX=-1 

NTæNJ (N-1)+CX#INT(RND(1)#1IM+1) 

IF NT<1 OR NT>NM THEN 260 

NJ (NN)=NT: NNEN 

GOSUB 4000 

GOSUB 6000 

IF NTaNJ(N) THEN SC=6C+1: GOSUB 2000 

IF NTC>NJ(N) THEN ZAP 

COx12: NT=NJ(N)1 CD=i: GOGSUB 5000 
NEXT N 
IF GC>MS(DM,IM) THEN MS(DM,IM)=8C 
FOR K=1 TO 191 PRINT CHR$(9)3: NEXT K 
PRINT'rejouez vous (O/N)"; 
GET R$: GET R$ 


UNTIL R$<>"O" 


END 

REM ---- 6P MISE À JOUR ET AFFICHAGE SCORE -------- 
PRINT "  M"ÿSTR$(N-1)34 IF N-1C10 THEN PRINT " "} 

PRINT " MpSTR$(SC) ju IF 6C<10 THEN PRINT " "} 

PRINT " M STR$S(MS(DM,IM))}CHR#(13)} 

RETURN 

REM ---- SP CALCUL X ET YB POUR LA NOTE NUMERO NN ------ 


YBæYi: X=X1+(NN-1) #DX 

IF X>=X2-DX THEN YB=Y2: X=X-(X2-K1) 

RETURN 

REM ---- SP SON NOTE NT ---------------------- 
MUSIC 1,0C(NT) ,NO(NT),0 
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4030 
4040 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5100 
5110 
5120 
5130 
5140 
5200 
5210 
5220 
5230 
5240 
35300 
5310 
5320 
5340 
5400 
5410 
3420 
5430 
5900 
35510 
5915 
5920 
5530 
5340 
5990 
39560 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
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PLAY 1,0,1,1500: WAIT 40 

RETURN 

REM ---- SP AFFICHAGE, EFFACEMENT DE NOTE --------- 
Y=YB-(NT-1)#(DT+ET)/2+ET+1 

IF CD=1 THEN GOSUB5100: GOSUB5200: GOSUB5300: GOSUB5400:RETURN 
IF CD=2 THEN GOSUB 5100: GOSUB 5200: GOSUB 5300: RETURN 

IF CD=3 THEN GOSUB 5200: RETURN 

IF CD=4 THEN GOSUB 5500: RETURN 

RETURN 

REM 

REM CURSET X+6,Y-7,0: FILL 8,1,16G 

IF NT<>3 AND NT<>5 AND NT<>7 AND NT<>9 AND NT<>11 THEN RETURN 
CURSET X+6,Y-4,0: FILL 2,1,1G+128 

RETURN 

REM 

CURSET X-6,Y-7,0: FILL 8,1,C0 

IF NT<>3 AND NTC>5 AND NT<>7 AND NT<>9 AND NT<>11 THEN RETURN 
CURSET X-6,Y-4,01 FILL 2,1,C0+128 

RETURN 

REM 

CURSET X,Y-7,0: CHAR CN,0,1 

IF NT<>3 AND NT<>5 AND NT<>7 AND NT<>9 AND NT<>11 THEN RETURN 
RETURN 

REM 

IF NT<=7 THEN CURSET X,Y-4,1: DRAW 0,-20,1 

IF NT>7 THEN CURSET X+5,Y-4,11 DRAW 0,20,1 

RETURN 

REM 

CURSET X,Y-7,0: CHAR CN,0,0 

CURSET X-6,Y-7,0: FILL 8,1,16G 

IF NT<>3 AND NT<2>5 AND NT<>7 AND NT<>9 AND NT<>11 THEN RETURN 
CURSET X-6,Y-4,0: FILL 2,1,16+128 

CURSET X,Y-4,11 DRAW 6,0,1 

CURSET X,Y-3,1: DRAW 6,0,1 


RETURN 
REM ---- GP LECTURE NOTE PROPOSEE -------------- 
GOSUB 3000 


CO=12: NTeNJ(N-1) 

CD=2: GOSUB 5000 

DPaPEEK(#208): IF DP=#84 THEN 6110 
NE=NT+(DP=#9C) #(NTCNM)-(DP=#B4)#(NT>1) 
IF NE=NT THEN 6040 

CD=4: GOSUB 5000 

NTEeNE: COs12: CD=2: GOSUB 5000 
GOTO 6040 

REM 

CD=41 GOSUB 5000 

RETURN 


8000 
8010 
8020 
8028 
8040 
8050 
80860 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8185 
8190 
8195 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9125 
9130 
9140 
9150 
9160 
9170 


REM ---- SP INITIALISATION D'UNE PARTIE --------- 
TEXT: CLS: PLOT 8,2," DICTEE MUSICALE" 

PLOT 3,7,"3 domaines possibles" 

PLOT 5,8," { : DO a SOL" 

PLOT 5,9," 2 : DO a DO" 

PLOT 5,10," 3 : DO a LA" 

PLOT 3,12,"quel domaine choisissez vous?" 

GET R$: IF R$<"1" OR R$>"3" THEN 8070 

PLOT 33,12,R$: DM=VAL(R$#) 

PLOT 3,16,"intervalle maximum entre" 

PLOT 3,17,"deux notes (1 a 9)?" 

GET R$1 IF R$<"1" OR R$>"9" THEN 8110 

PLOT 24,17,R$: IM=VAL(R#) 

WAIT 200 

CLS: PGx0r IG=7-PGr 1223: I3ei 

HIRES: PAPER PG: INK IG 

YDz=Yi1 SC=0 

FOR I=i TO 2 

t FOR Y=YD-DT-ET TO YD-5#(DT+ET) STEP -(DT+ET) 
1 FOR K=0 TO ET-1 

1  CURGET XO,Y-K,0: DRAW X2-K0,0,1 

#  NEXT K 

t NEXT ŸY 

1 YD=Y2 

NEXT I 

PRINT: PRINT" NOTE SCORE M-SCORE";CHR# (13) 
NM=5: IF DM=2 THEN NM=8 

IF DM=3 THEN NMzi3 


RETURN 
REM ---- INITIALISATIONS DU JEU ------------"- 
POKE 426,10 


CN=641 AM=46080+B#CN 
DATA 30,63,63,63,63,63,63,30 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

DT=8: ET=2: DX=12 

PA=4y IN=6: PAPER PAr INK IN 
XO=12: K1=241 X2=234 

Yi=88: V2=168 
NX=2#INT((X2-X1)/DX) 

DIM NJCNX) ,ND(13),0C(13) 

DIM MS(3,9) 

DATA 1,3,5,6,8,10,12,1,3,5,6,8,10 
FOR I=1 TO 131 READ NO(I)s NEXT ! 
DATA 3,3,3,3,3,313544,44,4,4 
FOR I=1 TO 131 READ OC(I)a NEXT I 
RETURN 
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3. Si vous souhaitez personnaliser ce programme 


1. Pour que les notes soient jouées sur un autre octave 


Modifiez les valeurs de l'instruction DATA de la ligne 9150, en y plaçant 
sept fois le numéro de l’octave voulu (de O à 5), suivi de six fois le numéro 
de l'octave suivant. 


Exemples : 
9150 DATA 2,2,2,2,2,2,2,3,3,3,3,3,3 

jouera les notes un octave plus bas que le programme actuel. 
9150 DATA 4,4,4,4,4,4,4,5,5,5,5,5,5 


les jouera un octave plus haut. 


2. Si vous trouvez que le jeu est trop lent ou trop rapide 


Vous pouvez modifier la durée de chaque note, en remplaçant, en 4030, la 
valeur 40 par un nombre de votre choix. Par exemple: 


4030 PLAY 1,0,1,1500: WAIT 10 


jouera environ deux fois plus vite. 


3. Pour modifier le nombre de notes jouées avant la nouvelle note 
à deviner 


Remplacez, en 195, dans ND = N — 5, le nombre 5 par une valeur de votre 
choix. 


Ainsi : 


195 ND=N-1: IF ND<1 THEN ND-1 
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vous jouera une seule note avant la note à deviner. 
195 ND=N—10: IF ND <1 THEN ND=1 


vous en jouera dix (du moins à partir du moment où il y aura déjà dix notes 
de représentées). 


Si vous souhaitez que toutes les notes soient rejouées avant la note à devi- 
ner, remplacez 195 par: 


195 ND-1 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 


b) Le programme principal (100-390) 


120 appelle le sous-programme d'initialisation du jeu. 


130 et 380 répètent les instructions 140 à 370 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
140 appelle le sous-programme d'initialisation d'une partie. 
150-170 dessinent la première note et mettent son numéro (1) dans 
le tableau des notes déjà jouées. 

180 et 330 répètent 33 fois les instructions 190 à 320 qui proposent, 
à chaque fois, une nouvelle note à découvrir: 
190-250 font entendre les cinq dernières notes (ou toutes les notes 
lorsqu'il y en a moins de cinq) en les faisant ‘’rougir”’. 
260-290 choisissent au hasard une nouvelle note (en tenant 


compte des limitations imposées par votre choix de domaine et 
d'intervalle) et rangent sa valeur dans NJ. 


295 fait entendre la note choisie. 


300 appelle le sous-programme “lecture note proposée” qui place 
votre réponse dans NT. ” 


310-315 analysent votre réponse; actualisent le score si elle est 
exacte, font entendre un ‘’zap'’ dans le cas contraire. 


320 affiche définitivement la note correcte (celle qui vous avez 
proposée, correcte ou non, a été effacée par le sous-programme 
“lecture note”). 


340-370 actualisent le meilleur score et vous demandent si vous 
souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9170) 


9010 supprime le bip du clavier et le curseur d'écran. 
9020-9060 fabriquent le caractère graphique représentant une note. 


9070 fixe la distance entre deux traits de portée, l'épaisseur du trait et la 
distance entre deux notes successives. 


9080 fixent les couleurs de l'écran en mode TEXT. 
9090-9100 déterminent les emplacements des deux portées. 
9110 calcule le nombre total de notes qui seront présentées. 


9120-9160 réservent les tableaux et fixent les numéros des notes et le 
numéro d'octave correspondant. 


d) Le sous-programme d'initialisation d'une partie (8000-8260) 
8010-8130 passent en mode ‘’TEXT'"' et vous font choisir votre niveau de 
jeu (domaine, intervalle). 


8140-8150 effacent l'écran et passent en mode "HIRES" (graphique 
haute résolution), en fixant les couleurs de ce mode. 


8155 initialise le score. 

8160 initialise le score. 

8170-8220 tracent les deux portées. 

8240-8250 déterminent la note la plus haute, compte-tenu de l'intervalle 


choisi. 


176 


e) Le sous-programme 3000-3030 


Il calcule pour la note de rang NN: 
— l'abscisse correspondante, 
—  l'ordonnée de la base de la portée correspondante. 


f) Le sous-programme d'affichage et d’effacement de note 
(5000-5560) 


Il réalise plusieurs fonctions déterminées par la valeur de la variable CD. 
CD=1 : affichage d'une nouvelle note avec queue, 
CD=—2: affichage d'une nouvelle note sans queue, 
CD=3: changement de couleur d'une note, 
CD=4 : effacement d'une note (sans queue). 


La hauteur de la note figure dans NT, son abscisse dans X. Le cas échéant, 
la couleur concernée figure dans CO. 


5010 calcule l'ordonnée de la note. 


5020-5050 réalisent chacune des fonctions par enchaînement de sous- 
programmes élémentaires: 


5100-5140 rétablit la couleur de fond, à droite de la note. 
5200-5240 fixe la couleur d'une note. 

5300-5340 dessine une note. 

5400-5430 dessine la queue. 

5500-5560 efface une note. 


g) Le sous-programme de lecture de la note proposée (6000-6120) 


6010-6030 affichent une note provisoire (sans queue). 


6040-6090 examinent le clavier et déplacent la note provisoire en fonction 
des touches enfoncées jusqu'à ce que vous appuyiez sur la barre 
d'espace. 


6110 efface la note provisoire. 


h) Le sous-programme son (4000-4040) 


Il émet un son correspondant à la note de hauteur NT. 
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5. Liste des variables 


CN 
DT 


ET 
DX 
PA 


IN 

X0O,X2 

X1 

Y1,Y2 

NX 

NJ(NX) 
NO(13),0C(13) 


MS(3,9) 
DM 

IM 

PG 


NT 
NN 
CO 


CD 
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code ASCII du caractère représentant une note 


nombre de ‘points élémentaires" séparant deux lignes 
d'une portée 


épaisseur des traits des portées 
écart entre les abscisses de deux notes successives 


couleur de fond, en mode TEXT (choix des niveaux et 
bande inférieure de l'écran) 


couleur d'encre en mode TEXT 

abscisses de début et de fin d'une portée 

abscisse de la première note 

ordonnées de base des deux portées 

nombre total de notes 

tableau contenant les hauteurs des notes déjà jouées 


tableaux contenant les codes et octaves des treize 
hauteurs de note possibles. 


tableau contenant le meilleur score de chaque niveau 
domaine choisi (1 à 3) 

intervalle maximum choisi (1 à 9) 

couleur de fond utilisée en HIRES 

couleur d'encre utilisée pour le tracé de la portée 
couleur des notes 

couleur d'une note pendant qu'elle est ‘’ jouée” 


hauteur de la note la plus haute, compte tenu de l'inter- 
valle choisi 


hauteur de note courante 
numéro de note courante 


couleur de note, utilisée par le sous-programme 
“affichage et effacement” 

précise au sous-programme ‘affichage et effacement" la 
fonction choisie (de 1 à 4) (voir description de ce sous- 
programme) 


YB 


SC 


numéro de la dernière note proposée 


ordonnée de base de la portée correspondant à une note 
courante 


abscisse d'une note courante 
score 


Variables auxiliaires 


AM XX 
K CX 


R$ Y YD 
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Annexe 1 
Hasard 


La fonction RND permet, lorsqu'on l'utilise avec un argument supérieur ou 
égal à un, d'obtenir un nombre tiré au hasard entre O (compris) et 1 (exclu). 
Bien qu'aucun de nos jeux ne soit ce que l'on a coutume d'appeler des 
‘jeux de hasard”, il se trouve quand même que le hasard y intervient 
souvent. C'est notamment le cas lorsqu'il faut choisir au hasard la position 
d'un objet sur l'écran, une lettre de l'alphabet, etc. 


Dans tous les cas, le problème à résoudre est le suivant : choisir au hasard, 
une valeur entière comprise entre deux valeurs données p et n. 


Commençons par le cas où p = 1, autrement dit, lorsque l’on désire une 
valeur entière comprise entre 1 et n (1 et n compris): 








Expressions Valeur correspondante 


RND(1) entre O (compris) et 1 (exclu) 
n # RND(1) entre O (compris) et n (exclu) 
n«RND(1)+1 entre 1 (compris) et n+1 (exclu) 


INT(n *# RND(1) + 1) entière entre 1 (compris) et n (compris) 
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Par exemple, l'expression: 


INT(6*RND(1)+1) 


fournira un nombre entier compris entre 1 et 6. 


Voyons maintenant le cas plus général évoqué précédemment : obtenir un 
nombre entier compris entre p (compris) et n (compris): 













Expressions Valeur correspondante 





RND(1) 
(n—p+1) # RND(1) 
p + (n—p+1) » RND(1) 
INT(p+ (n—p+1) *# RND(1) 


entre O (compris) et 1 (exclu) 

entre O (compris) et n—p+1 (exclu) 
entre p (compris) et n+1 (exclu) 
entier entre p (compris) et n (compris) 





La dernière expression peut également s'écrire: 
p+INT((n-p+1)*RND(1)) 


Celle-ci est fréquemment utilisée dans nos programmes. Ainsi pour tirer 
dans X une coordonnée d'écran comprise entre deux limites X1 et X2, nous 
écrivons: 


X=X1+INT(RND(1)x(X2—X1+1) 


De même pour tirer dans C, le code ASCII d'une lettre comprise entre À 
(code 65) et Z (code 90) nous écrivons: 


C=65+INT(RND(1)+26) 


(puisque 90 — 65 + 1 — 26) 
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Annexe 2 


Création de caractères 
sraphiques 


Pour bien comprendre la manière de fabriquer des caractères graphiques, il 
est nécessaire de savoir comment l'ATMOS réalise les caractères que vous 
voyez apparaître sur votre écran. 


1. Comment l’ATMOS fabrique-t-il les caractères ? 


Chaque caractère est affiché à l'écran sur un quadrillage de 8 x 6 cellules 
élémentaires. Chaque cellule peut être soit de la couleur de fond (qu'ici 
nous supposerons blanc) soit de la couleur d'encre (supposée ici noire). 
Voici, par exemple comment est représentée la lettre C: 
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Pour vous en convaincre, il vous suffit d'examiner votre écran de très près 
(ou de regarder notre dessin de loin). 


Comment l'ATMOS conserve-t-il ce dessin en mémoire ? Il le code sur huit 
octets consécutifs représentant chacun une ligne du quadrillage. Dans 
chaque octet, on trouve le nombre binaire obtenu en considérant qu'une 
cellule blanche correspond à O et qu’une cellule noire correspond à 1. Ainsi, 
pour notre lettre C, nous obtenons: 





Ligne Nombre binaire Aie 
a Se 
1 011100 28 
2 100010 34 
3 100000 32 
4 100000 32 
5 100000 32 
6 100010 34 
7 011100 28 
8 000000 0 





L — — 





A quel emplacement de la mémoire se trouvent ces huit octets? Les 
descriptions de chacun des 128 caractères (codes ASCII O à 127) sont 
rangées suivant l'ordre des codes ASCII, à partir de l'adresse 46080 (ou 
13312 sur l'ATMOS 16K). Autrement dit le caractère de code ASCII O est 
décrit par les octets d'adresse 46080, 46081, …, 46087. Le caractère 
de code ASCII 1 est décrit par les octets d'adresse 46088, 46089, …, 
46095 etc... 
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D'une manière générale, la description du caractère de code x occupe huit 
octets consécutifs à partir de l'adresse: 


46080+8x+x 


A titre d'exemple, vous pouvez retrouver les huit valeurs permettant de 
fabriquer la lettre C à l'aide de ce petit programme: 


100 X-67 

110 FOR 1-0 TO 7 

120 PRINT PEEK(46080+8xX +1) 
130 NEXT | 


2. Comment créer vous-même de nouveaux caractères ? 


Il vous suffit tout simplement de modifier, avec l'instruction POKE, le 
contenu des octets contenant la description de caractères. C'est cette 
méthode qui nous a permis de créer, dans la plupart des jeux, des 
graphismes tels que: balle, boule, champignon, missile, robot, soucoupe, 
etc. Voici comment procéder: 


a) Dessiner votre motif dans un quadrillage 8 x 6 comme nous l'avons fait 
pour la lettre C. 


b) Écrire la valeur binaire correspondant à chaque ligne, puis sa valeur 
décimale. 


c) Choisir un caractère non utilisé dans votre programme (par exemple @ 
ou © …) et regarder son code dans la table ASCII. 


d) Entrer les huit valeurs définies en b, par POKE, aux adresses obtenues 
par la formule précédente. 


Voici un sous-programme qui ‘’redéfinit’’ le caractère dont le code ASCII 
est contenu dans la variable C, à l’aide de huit valeurs supposées placées 
en DATA”. 
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9500 REM ——-—— SP CREATION CAR GRAPHIQUES ——-—— 
9510 AM=—46080+8+C 

9520 FOR 1=0 TO 7 

9530 : READ XX: POKE AM+I,XX 

9540 NEXT I 

9550 RETURN 


C'est là le sous-programme que vous retrouverez dans la plupart des jeux 
où l'on utilise des caractères graphiques. 
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Annexe 3 
Lecture rapide du clavier 


Les instructions usuelles de Basic ne sont pas adaptées à la conduite de 
mobiles par l'intermédiaire du clavier (déplacement d'une raquette, d'une 
voiture, d'une base de tir, ….). Dans nos programmes, nous avons employé, 
Lorsque cela le nécessitait, d'autres méthodes que nous allons décrire ici. 


1. Introduction 


En Basic, il existe trois manières de lire le clavier: 
* INPUT lit une chaîne de caractères en l'affichant à l'écran en même 


temps que vous la composez. Son action se termine lorsque vous frappez la 
touche ‘return’. Cette instruction qui ‘’bloque”’ le programme tant que 
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vous n'avez pas fini de frapper votre message, est inutilisable pour 
commander des déplacements. 


* GET attend qu'un caractère soit frappé et le range dans la variable 
suivant le mot GET. Là encore le programme est bloqué tant que vous ne 
tapez pas un caractère. C'est d'ailleurs cette instruction que nous avons 
employée, de préférence à INPUT lorsque le programme attendait une 
réponse brève (un chiffre, O/N, ..). 


* KEY$ est une fonction qui se contente d'examiner si une touche du 
clavier est enfoncée. Si oui, elle restitue le caractère correspondant, sinon 
la chaîne vide. En apparence elle devrait permettre de résoudre notre 
problème de commande de mobile puisque, contrairement aux deux 
instructions précédentes, elle ne bloque pas le programme. Malheureuse- 
ment, une imperfection de taille apparaît. Pour vous en convaincre, tapez 
ce petit programme: 


100 FOR 1=1 TO 25 

110 A$=KEY$: IF A$—”" ”’ THEN 110 
120 PRINT A$ 

130 NEXT I 


Lancez le (RUN). Tant que vous n'appuyez sur aucune touche, il ne se 
passe rien; l'instruction 110 boucle sur elle-même. Si vous pressez, par 
exemple la touche Z, le programme vous écrit immédiatement Z. Mais si 
vous laissez cette touche enfoncée en permanence, vous découvrirez qu'il 
s'écoule un temps assez long avant l'apparition du second Z, puis les lettres 
suivantes arrivent ensuite à un rythme régulier et plus rapide. 


En fait, vous obtenez le même phénomène que lorsque vous tapez 
plusieurs fois la même lettre sous l'effet de la ‘répétition automatique”. 


Nous n'entrerons pas dans le détail de fonctionnement de KEY$: nous 
retiendrons seulement qu'elle est tributaire du rythme de la répétition auto- 
matique. Elle est donc inutilisable pour ce qui nous préoccupe. Notez bien 
que l'on rencontre de nombreux jeux Basic (y compris sur cassette) qui se 
contentent de cette fonction. Le déplacement d'un objet à l’aide des 
touches fléchées est très désagréable puisqu'irrégulier. Si vous disposez 
déjà de tels jeux, il vous sera facile d'y adapter l’une des techniques que 
nous vous proposons. 
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2. Une première méthode: Utilisation des adresses 768 et 
735 


On constate que: 


l'octet 768: prend la valeur 176 lorsqu'aucune touche n'est enfoncée et 
une valeur différente dans le cas contraire; 


l'octet 735: prend la valeur: 


136 quand + est enfoncée 

137 quand - est enfoncée 
138 quand } est enfoncée 
139 quand ? est enfoncée 
141 quand return est enfoncée 
etc. 


Cette valeur subsiste, même quand la touche correspondante a été 
relâchée, jusqu'à ce que vous pressiez une nouvelle touche. C'est pour 
cette raison que l'examen de l'octet 768 est, en général, nécessaire. 


Voici, à titre d'exemple, un programme qui permet de déplacer horizontale- 
ment la lettre A” à l'aide des touches “-" et "+": 


100 X=10: Y=10 

110 PLOT X,Y,''A" 

120 IF PEEK(768)—176 THEN 120 
130 CL=PEEK(735)—-135 

140 PLOT X,Y,32 

150 X=X+(CL=1)-(CL=2) 

160 GOTO 110 


L'instruction 150 mérite quelques explications. Sur ATMOS une expression 
telle que CL = 1 prend la valeur — 1 quand l'égalité mentionnée est 
vraie, la valeur O dans le cas contraire. Autrement dit X diminue de 1 quand 
CL vaut 1 (c'est-à-dire quand l'octet 735 vaut 136, ce qui correspond à 
+") et X augmente de 1 quand CL vaut 2 ("-"). 


Si vous exécutez, ce petit programme, il est probable que vous amènerez 
votre lettre À sur l’un des bords de l'écran et que vous obtiendrez le 
message d'erreur: 


ILLEGAL QUANTITY ERROR IN 110 
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En effet, nous n'imposons pas de limite à la valeur de X. Nous pouvons le 
faire, soit en ajoutant des instructions de test, soit simplement, en utilisant 
la technique déjà décrite en remplaçant la ligne 150 par: 


150 X=X—(CL=1)*x(X > 2)+(CL=2)x(X< 39) 


(Nous évitons les colonnes 0 et 1 pour ne pas perturber les couleurs de la 
ligne où se déplace la lettre A). 


Le principal mérite de cette première méthode est que les valeurs corres- 
pondant aux quatre touches fléchées sont consécutives (736 à 739). Cela 
peut être fort utile lorsque l'on souhaite, par exemple, sélectionner un 
élément d'un tableau en fonction de cette valeur (voir: Karting). 


3. Une seconde méthode: Utilisation de l’adresse # 208 
(soit 520 en décimal) 


On constate que cet octet prend la valeur: 


#38 lorsqu'aucune touche n'est enfoncée 
#AC lorsque la touche + est enfoncée 
#BC lorsque la touche — est enfoncée 
#B4 lorsque la touche Ÿ est enfoncée 
#9C lorsque la touche + est enfoncée 


Ici, dès que la touche est relâchée, l'octet 208 reprend la valeur #38. Par 
rapport à la méthode précédente, cette dernière présente l'avantage de ne 
nécessiter la consultation que d'un seul octet. Par contre, les valeurs 
obtenues ne sont plus consécutives. 


Voici, à titre d'exemple, comment adapter cette méthode à notre 
programme de déplacement de lettre: 


100 X=10: Y=—10 

110 PLOT X,Y,'A” 

120 CL=PEEK(#208) : IF CL=#38 THEN 120 

140 PLOT X,Y,32 

150 X=X—(CL= # AC)x(X > 2)+(CL=#BC)x(X <39) 
160 GOTO 110 


D'une manière générale, c'est cette méthode que nous avons utilisée dans 
nos programmes à chaque fois que la précédente ne s'imposait pas. 
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Annexe 4 
SCROLL 


Certains micro-ordinateurs possèdent une instruction Basic réalisant le 
défilement d'écran (en anglais SCROLL). Sur votre ORIC, vous obtenez 
automatiquement un défilement (vers le haut), dès que l'écran est rempli. 
Si vous faites une liste d'un programme, vous avez un défilement quasi- 
continu. 


Ce défilement vers le haut peut s'obtenir également manuellement en 
déplaçant le curseur jusqu'en bas de l'écran et en conservant la touche 
"  ”enfoncée. 


Pour réaliser ce défilement par programme, il suffit de savoir que: 


PRINT CHR$(10); réalise la même chose que l'appui sur la touche | 


Bien entendu, au début du programme, il faut faire en sorte que le curseur 
soit bien positionné en bas de l'écran. Pour cela, il suffit d'imprimer” suffi- 
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samment de caractères CHR$(11) ou même simplement d'imprimer 
26 lignes blanches: 


FOR 1=1 TO 26: PRINT: NEXT I 


L'avantage considérable de cette méthode réside dans la simulation d'un 
mouvement d'ensemble, sans qu'il soit nécessaire de programmer le dépla- 
cement de chacun des éléments. On l'emploie généralement lorsqu'un 
petit nombre d'objets doivent rester immobiles par rapport à l’ensemble. 
Dans ce cas, les objets fixes sont effacés avant le défilement pour être 
redessinés immédiatement après. 
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Annexe 5 


Écriture directe en mémoire 
d’écran 


1. Introduction 


L'introduction PLOT ne peut être employée qu'avec des ordonnées variant 
entre O et 26. Cela signifie qu'elle permet d'utiliser 27 lignes. Or, la totalité 
de l'écran comprend 28 lignes. 


Effectivement, la première ligne de l'écran n'est pas accessible par PLOT. 
C'est d'ailleurs là que Basic place certains messages: CAPS, searching, 
loading, etc. Notez, au passage, que cette ligne n'est pas soumise au 
défilement’ d'écran (scroll); cela se remarque, notamment quand vous 
listez un programme. 


Or même l'accès à la première ligne présente un grand intérêt lorsque l'on 
utilise une technique de “scroll” (défilement d'écran). En effet, c'est la 
seule ligne où l'on peut faire figurer des informations qui ne risquent pas de 
disparaître après défilement. 
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2. La mémoire d’écran 


En fait la solution à ces problèmes devient extrêmement simple dès que 
l'on sait que l'image apparaissant à l'écran est stockée dans la mémoire 
de l'ATMOS. Elle occupe les adresses 48000(#BB80 en hexa) à 
49119(#BFDF en hexa) sur l'ATMOS 48K et les adresses 15232(#3B80) 
à 16351(4#38DF) sur l'ATMOS 16K. Chaque octet correspond à une posi- 
tion écran et les informations sont stockées ligne par ligne. 


Ainsi 48000 correspond à la première position de la première ligne de 
l'écran. 


Voici un petit schéma récapitulatif (les hachures correspondent aux zones 
d'écran non accessibles par PLOT). 





adresse adresse ordonnée abscisse utilisée par PLOT 
mémoire mémoire utilisée 
48 K 16 K par PLOT 
48000 15232 
48040 15272 0 





48080 15312 





49040 16272 25 
49080 16312 26 


























Pour écrire dans les zones hachurées, il vous suffit donc d'utiliser l'instruc- 
tion POKE. Bien sûr, rien ne vous empêche d'employer POKE pour écrire 
dans n'importe quelle autre partie de l'écran. 
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3. Exemple: affichage en ligne supérieure 


e Pour effacer cette ligne (ce qui fera du même coup disparaître le mot 
""CAPS"'), vous pouvez utiliser ces instructions : 


100 AM—48000 

110 FOR 1-0 TO 39 
120 : POKE AM+1,32 
130 NEXT | 


e Pour écrire une chaîne dans cette ligne, il faudra l'écrire lettre par lettre. 
Voici un petit sous-programme qui affiche, à partir de la colonne IC de la 
ligne supérieure, la chaîne contenue dans CH$: 


6000 REM affichage ligne supérieure 

6010 AM=—48000 

6020 FOR 1=1 TO LEN(CHS) 

6030 : POKE AM+1+1C—1,ASC(MID$(CH$,1,1)) 
6040 NEXT I 

6050 RETURN 


Essayez-le en exécutant, en mode direct: 


1C-1 :CH$=—""BONJOUR ”’ :GOSUB 6000 
1C=—10 :CH$="" MADAME’ :GOSUB 6000 
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Annexe 6 
Configuration clavier/écran 


Vous savez que l'on peut supprimer le “bip” du clavier en tapant simple- 
ment ” Controle F” (c'est-à-dire en maintenant la touche ‘ CTRL”" enfoncée 
tandis que l’on presse la touche F). Cette même action rétablit le bip”. On 
a un fonctionnement dit'’à bascule” puisqu'une même commande fait 
basculer d'un état à l'autre. 


De la même façon ‘Contrôle Q” fait apparaître ou disparaître le curseur 
de l'écran (carré clignotant). 


Comment réaliser ces actions par programme ? Nous vous proposons deux 
solutions : 


Solution 1: Utiliser l'instruction PRINT 


PRINT CHR$(6); a le même effet que ’’controle F” 
PRINT CHR$(17); a le même effet que ‘’controle Q" 


Ainsi vous pouvez placer ces deux instructions au début d'un programme 
pour supprimer le bip et le curseur. |l faudra toutefois penser à les exécuter 


en fin de programme pour retrouver l'état initial. 


195 


Cette méthode présente un inconvénient dû à ce que les effets sont ‘à 
bascule”. Par exemple, si votre programme est interrompu, vous serez 
dans l'état ‘bip et curseur supprimés”. Si vous relancez alors le 
programme, les instructions PRINT... vous redonneront le bip et le curseur. 


La solution suivante permet d'éviter cet inconvénient : 


Solution 2: 


L'état du clavier et de l'écran est conservé par ATMOS dans l'octet 
d'adresse #26A. Voici sa signification, bit par bit: 












État correspondant à 





Valeur 
standard 


Numero 





O0 curseur supprimé curseur visible 

1 vidéo supprimée vidéo active 

2 = = 

3 clavier sonore (bip) | clavier muet (bip 
supprimé) 

4 16 ESC actif pas d'ESC 

5 32 38 colonnes 40 colonnes 

6 64 simple hauteur double hauteur 

7 128 — _ 





Il faut noter que lorsque vous mettez votre ATMOS sous tension, cet octet 
contient la valeur 3. Pour supprimer le bip du clavier, il faut mettre à 1 le bit 
3 et pour supprimer le curseur, il faut mettre à O le bit 1. Il faut, bien 
entendu, laisser les autres bits inchangés. La valeur à placer (par POKE) est 
donc 10 (2+8). Pour cela, il suffira d'écrire: 


POKE # 26A,10 


Si, à la fin du programme, vous souhaitez revenir à l'état initial, vous 
écrirez: 


POKE # 264,3 
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L'avantage de cette méthode est que, quel que soit l'état initial, le résultat 
de POKE #26A,10 conduira à la suppression du bip et du curseur. Ce 
n'était pas le cas de la première méthode comme nous l'avons vu. 


REMARQUE: Nous vous avons donné la signification de chacun des bits de 
l'octet #26A bien que seuls les bits O et 3 nous aient intéressés ici. Ce sont 
les seuls que nous avons été amenés à utiliser dans les programmes de 
jeux de ce manuel. 
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Annexe 7 
Poignées de jeu 


1. Introduction 


Beaucoup des jeux proposés dans ce manuel peuvent utiliser une poignée 
de jeu (aucun ne nécessite deux poignées). Pour cela, il est nécessaire 
d'entrer en mémoire l'un des deux programmes proposés par la note 
accompagnant les poignées. Il s’agit de programmes Basic dont l'exécution 
provoque l'écriture d'instructions en langage machine dans un emplace- 
ment disponible de la mémoire. Ceci peut, éventuellement, n'être réalisé 
qu'une seule fois pour différents jeux. En effet, le chargement d'un 
programme de jeu (par CLOAD) ne détruira pas les instructions en langage 
machine. Seul le programme Basic ayant servi à les fabriquer sera effacé, 
ce qui n'a pas d'importance. Par contre, ces instructions disparaîtront 
(comme tout le reste de la mémoire) lorsque vous mettrez votre ATMOS 
hors tension. 


Nous vous conseillons de conserver ces deux programmes sur cassette afin 
d'éviter d'avoir à les taper plusieurs fois. 
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Les deux paragraphes suivants expliquent le fonctionnement des 
programmes proposés. Leur lecture n'est pas indispensable. 


2. Premier programme 


Nous le nommerons ‘ MANETTE 1” 


99 DATA #48 
199 DATA HAD, #01,4#03, #48 
195 DATA #AD, #43, #03, #48, H#A9, #CO 
119 DATA #8D,403,#03,#A9, #60, #BD, HOF, HOT, #AD, HOF, HOT, HD, HGG, #04 
115 DATA #A9,#40, #BD, HOF, HO, HAD, HG 1, #O3 
126 DATA #BD,#01,#04,#68, #BD, #03, #03 
25 DATA #68, #8D,#OF, #07 
136 DATA #68,#4C,#22,HEE 
209 MEM=#0402 
219 READ DTA: FOKE MEM, DTA 
IF DTASYHEC THEN MEM=MEM+1: GOTO 214 
DOKE #0245,#402 
19 PRINT PEEK (#40), PEEK (#401) : GOTOZ3& 





Les instructions 200 à 220 placent, à partir de l'adresse mémoire #402, 
les instructions machine fournies par les DATA” des lignes 100 à 130. 
L'instruction 225 permet à ce programme d'être exécuté en même temps 
que la routine de gestion d'interruptions. 


Le rôle des instructions machines ainsi créées consiste à placer dans les 
octets #400 et #401 l'état de chacune des deux poignées (400 corres- 
pondant à la poignée droite). La valeur de chaque bit est définie ainsi: 





Numéro du bit Poids du bit Signification 
CR  — 
0 1 gauche 
1 2 droite 
2 4 (inutilisé) 
3 8 bas 
4 16 haut 
5 32 bouton de tir (l'un des deux) 
6 64 poignée gauche 
7 128 poignée droite 
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Le ‘poids du bit’ correspond à la valeur obtenue lorsque ce bit est à un. 
Contrairement à ce que l’on pourrait croire, chaque bit prend la valeur 0 (et 
non 1) quand l'action correspondante est effective et la valeur 1 dans le cas 
contraire. Par exemple, si le bouton de tir de la poignée droite est enfoncé, 
en même temps qu'elle est en position ‘’haut”, l'octet 400 contiendra le 
nombre binaire : 


N° du bit: 7 6° 5 ‘4 :3, 2° 1 0 
Valeur: O0 1 0: 0: 41 1 1 1 


ce qui correspond à la valeur 64 + 8 + 4 +2 + 1 — 79. 


Lorsque la poignée droite est en position de repos, l'octet #400 contient : 
64 + 32 + 16 + 8 + 4 + 2 + 1 — 127. De même, quand la poignée gauche 
est en position de repos, l'octet #401 contient: 128 + 32 + 16 + 8 + 4 
+2 + 1 = 191. 


Notez bien que deux bits de position (haut, bas, gauche, droite) peuvent 
être simultanément à zéro. C'est ce qui nous permettra le déplacement ‘’en 
diagonale”, chose que les touches du clavier ne permettent pas. 


Comment utilisons-nous ce programme 


e Pour savoir si la poignée droite est au repos, nous comparons à 191, la 
valeur de l'octet d'adresse #400. 


e Pour savoir si un tir est demandé, nous examinons le bit 5 de cet octet 
en employant la fonction AND. Ainsi, ces instructions: 


CL=PEEK( # 400) 
IF((CL AND 32)-0) THEN... 


exécutent l'action figurée par … lorsque l'un des boutons de tir est enfoncé, 
quelle que soit la position de la poignée. Si nous avions simplement comparé 
la valeur de l'octet 400 à 95 (64+16+8+4+2+1), nous n'aurions trouvé 
l'égalité que si l'un des boutons était enfoncé alors que la manette était en 
position centrale. Cette façon de faire empêcherait de tirer pendant un 
déplacement. 


e Pour réaliser un déplacement, nous procédons ainsi: si X et Y désignent 
les coordonnées d'un mobile à un instant donné, ses nouvelles coor- 
données XN,YN sont définies par: 


CL=PEEK(# 400) 
XN=X+((CL AND 1)=0)-((CL AND 2)=0) 
YN=Y+((CL AND 16)-0)-((CL AND 8)=0) 
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Là encore, nous avons considéré individuellement chacun des bits O,1,3 et 
4 de l'octet #400. En procédant ainsi, le déplacement en diagonale devient 
possible. 


REMARQUE: L'instruction 210 écrit, en permanence, le contenu des octets 
#400 et #401. Lorsque vous exécutez le programme MANETTE 1, vous 
pouvez ainsi examiner les différentes valeurs obtenues en agissant sur vos 
poignées. 


3. Deuxième programme 


Nous le nommerons ‘ MANETTE 2" 


166 DATA #48, HAD, 1,3,#48,#AD,2,3,#48, #09, #C0, HGD, #3,3, #49, #80 
118 DATA #8D,#F,3, #20, HIT, #04, RAD, 0,4, H8D, 1,4, HA9, #40, HOD, HF, 
126 DATA 426,4#32,4,H68, #OD,3,3,4#68, #GD,#F, 3, #69, #4C, 22, #EE 

136 DATA #A9,0,#6D,0,4,HAD,#F,3,#49,43E, #OA, HO, HGA, #DE, 0,4, #0 
148 DATA #2E,0,4, #0, #2E, 6,4, HO, HO, HE, D, 4, HOA, #DE, 0,4, #60 
156 FOR AD=#497 TO #452: READ DTA: FOKE AD,DTA: NEXT 

169 IF DTA::#6@ THEN STCF 

204 DOKE #245,#402 

219 PRINT PEEK(#406) ,PEEK (4461) 

276 GOTO 216 


Le mécanisme est le même que celui employé dans le programme précé- 
dent. La différence réside simplement dans les valeurs placées dans les 
octets #400 et 4401. Seuls, les bits O à 4 sont utilisés, comme ceci: 





Numéro du bit Signification 






gauche 
droite 
bas 
haut 
tir 
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Cette fois, un bit donné prend la valeur 1 quand l'action correspondante est 
effective. 


Ce résultat est obtenu grâce à quelques instructions machine supplémen- 
taires. L'examen de la valeur des octets #400 et 4401 s'en trouve ainsi 
simplifié. 


Comment utilisons-nous ce programme 

e Pour savoir si la poignée droite est au repos, il suffit de comparer à zéro 
la valeur de l'octet 4400. 

e Pour savoir si un tir est demandé, nous examinons le bit 4. Ainsi ces 


instructions : 


CL=PEEK(# 400) 
IF(CL AND 16) THEN... 


exécutent l'action représentée par. lorsque l'un des boutons de tir est 
enfoncé. 


e Pour réaliser un déplacement, on peut procéder ainsi: 


CL=PEEK(#400) 
XN=X-—(CL AND 1)+(CL AND 2) 
YN=Y-—(CL AND 8)+(CL AND 4) 


mais on peut aussi profiter du fait que les valeurs sont ” groupées”, et 
écrire : 

ON (CL AND 16) GOTO x,y,z 

ON (CL AND 16)GOSUB x,y,z 


X,y,z.... représentant des numéros de ligne. 


Notez bien que l'expression (CL AND 16) prend une valeur comprise entre 
O et 10: cependant elle ne prend jamais la valeur 3 ni la valeur 7. 
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Voici un schéma récapitulant les valeurs possibles: 


HAUT 
9 8 10 
GAUCHE 1 O 2 DROITE 
5 4 6 
BAS 


e Pour dessiner un mobile qui change d'aspect suivant le sens de déplace- 
ment, on peut créer un tableau C de dimension 10, contenant les codes 
des caractères utilisés pour chacune des directions: 


C(1) correspond à un déplacement vers la gauche, 
C(2) correspond à un déplacement vers la droite, 
C(3) n'est jamais utilisé, 


C(5) correspond à un déplacement vers le bas et vers la gauche (en 
diagonale), etc... 


Pour afficher le bon caractère en X,Y il suffit d'écrire: 


CL=PEEK(# 400) 
IF CL <> 0 THEN I=CL AND 16:PLOT X,Y,C(1) 


C'est cette méthode que nous employons dans karting”. 


REMARQUE: Là encore, l'instruction 230 écrit en permanence les valeurs 
des octets #400 et 4401. 


4. Comment employer une poignée dans les jeux proposés 


a) Examinez la rubrique “pour utiliser une poignée de jeu” du paragra- 
phe 3 du chapitre relatif au jeu concerné. Celle-ci vous précise: 


— le programme à employer (MANETTE1 ou MANETTE2), 
— les modifications à apporter au programme de jeu. 
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b) Chargez le programme demandé (MANETTE1 ou MANETTE2) et 
exécutez-le. Vous devez voir défiler: 


197 et 127 pour MANETTE 1 
O et  O pour MANETTE 2 


Vérifiez que la poignée droite est correctement branchée : en agissant sur 
elle, la première valeur doit évoluer. (Si c'est la seconde valeur qui change, 
il vous suffit de modifier le branchement). 


Interrompez l'exécution, par Controle C”. 

c) Chargez maintenant votre programme de jeu. Effectuez les modifica- 
tions proposées, à moins que vous n'ayez déjà sauvegardé une version 
poignée de jeu”. 

d) Lancez votre programme par RUN. 

REMARQUE: La façon dont les poignées sont branchées sur l'ATMOS fait 


que leur utilisation modifie ou interrompt les sons générés par le haut- 
parleur. 
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Découvrez les excellentes possibilités graphiques et sonores de 
l’ATMOS avec ses vingt jeux plus passionnants les uns que les autres. 
Venez piloter un bombardier, une voiture de course, une soucoupe 
volante ; essayez de détruire les envahisseurs ou d’alunir en douceur ; 
distrayez-vous au tir aux ballons ou à la chasse aux champignons ; 
détendez-vous avec le «mur de briques» ; entraînez votre mémoire 
avec «phosphore» ; exercez vos facultés de raisonnement avec le 
master-mind géant. 


Affirmez votre personnalité en adaptant chaque jeu en fonction 
de vos désirs : choisissez pour cela parmi les nombreuses modifications 
qui vous sont proposées (y compris l’utilisation d'une poignée de jeu) 
et qui ne nécessitent aucune pratique de la programmation. 


Etendez vos connaissances du BASIC et de l'ATMOS, tout en 
vous amusant, grâce aux explications détaillées qui accompagnent 
chaque programme de jeu. 


Donnez libre cours à votre imagination en appliquant les techni- 
ques décrites ici à la programmation des scénarios de jeux qui vous 
tiennent à cœur. 
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